Appendix Bl 

/* 

* Lexer. 

* Copyright (c) 1998-1999 New Generation Software (NGS) Oy 
* 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 
* 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE- See the GNU 

* Library General Public License for more details. 
* 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA . 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www . gnu . org/copylef t/gpl . html . 
*/ 

* 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to: 
* 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

***************************************** 
var rjs_VTAB = ' \013 ' ; // @@ For IE 



/* 

* $Source: /usr/local/cvsroot/ngs/ j s/ j sc/lexer . j s , v $ 

* $Id: lexer. js,v 1.9 1999/01/11 08:56:30 mtr Exp $ 
*/ 

/* 

* Global functions. 
*/ 

function JSC$lexer (stream) 

{ 



i 



var ch, ch2 / 
JSC$token_value = null; 

while ( (ch = stream . readByte ()) != -1) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

if (ch == ' \n' ) 
{ 

JSC$ 1 inenum++ ; 
continue ; 

} 

if ( JSC$lexer__is_white_space (ch) ) 
continue ; 

JSC$token_linenum = JSC$linenum; 

if (ch == '/' JSC$lexer_peek_char (stream) == ■ *■) 

{ 

/* Multi line comment. */ 
stream. readByte (); 

while ( (ch = stream . readByte ()) != -1 

&& (ch i= • *• || JSC$lexer_peek_char (stream) != '/')) 
if (ch == ' \n' ) 
JSC$linenum++ ; 

/* Consume the peeked '/' character. */ 
stream . readByte (); 

} 

else if ( (ch == '/' && JSC$lexer_peek_char (stream) == '/') 

|| (ch == '#' && JSC$lexer_peek_char (stream) == •!')) 

{ 

/* Single line comment. */ 

while ( (ch = stream . readByte ()) != -1 && ch >= 1 \n') 

if (ch == ' \n' ) 
JS C $ 1 i nenum+ + ; 

} 

else if (ch == "" | | ch == ' \ ' ' ) 
{ 

/* String constant. */ 

JSC$token_value = JSC$lexer_read_string (stream, "string", ch) ; 
return JSC$tSTRING; 

} 

/* Literals. */ 

else if (ch == *=■ JSC$lexer_peek_char (stream) == '=') 

{ 

stream . readByte (); 

if ( JSC$lexer_j?eek_char (stream) == ' = ') 

{ 

stream. readByte (); 
return JSC$tSEQUAL; 

} 

return JSC$tEQUAL; 
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} 

else if (ch == '!' && JSC$lexer_peek_char (stream) == '=') 
{ 

stream . readByte (); 

if ( JSC$lexer_peek_char (stream) == '=') 

{ 

stream . readByte () ; 
return JSC$tSNEQUAL; 

} 

return JSC$tNEQUAL; 

} 

else if (ch == ' <■ && JSC$lexer_peek_char (stream) == '=') 

{ 

stream . readByte (); 
return JSC$tLE; 

} 

else if (ch == ' >' && JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte (); 
return JSC$tGE; 

} 

else if (ch == '&' && JSC$lexer_peek_char (stream) == '&') 
{ 

stream - readByte (); 
return JSC$tAND; 

} 

else if (ch == ■ | ' && JSC$lexer_peek_char (stream) == • | ' ) 

{ 

stream . readByte (); 
return JSC$tOR; 

} 

else if (ch == && JSC$ lexer_peek_char (stream) == '+') 

{ 

stream. readByte (); 
return JSC$ t PLUS PLUS ; 

} 

else if (ch == ' - ■ && JSC$lexer_peek_char (stream) == 1 - 1 ) 

{ 

stream. readByte (); 
return JSC$tMINUSMINUS ; 

} 

else if (ch == ■*' && JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte (); 
return JSC$tMULA; 

} 

else if (ch == '/' JSC$lexer__peek_char (stream) == * = *) 

{ 

stream. readByte (); 
return JSC$tDIVA; 

} 

else if (ch == '%' && JSC$lexer_peek_char (stream) == '=') 

{ 

stream . readByte (); 
return JSC$tMODA; 

} 

else if (ch == && JSC$lexer_peek_char (stream) == '=') 
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{ 

stream . readByte () ; 
return JSC$tADDA; 

} 

else if (ch == '-* JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte (); 
return JSC$tSUBA; 

} 

else if (ch == && JSC$lexer_peek_char (stream) == '=') 

{ 

stream - readByte (); 
return JSC$ tANDA; 

} 

else if (ch == ' ^ 1 JSC$lexer_peek_char (stream) == '=') 

{ 

stream . readByte (); 
return JSC$tXORA; 

} 

else if (ch == 'I* JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte (); 
return JSC$tORA; 

} 

else if (ch == ' < 1 && JSC$lexer_peek_char (stream) == '<') 

{ 

stream . readByte (); 

if (JSC$lexer_peek_char (stream) == '=') 

{ 

stream . readByte (); 
return JSC$tLSIA; 

} 

else 

return JSC$ tLSHIFT; 

} 

else if (ch && JSC$lexer_peek_char (stream) == ! >') 

{ 

stream . readByte (); 

ch2 = JSC$lexerj)eek_char (stream) ; 
if (ch2 == ' = ' ) 
{ 

stream . readByte (); 
return JSC$tRSIA; 

} 

else if (ch2 == •>') 
{ 

stream. readByte ()/ 

if ( JSC$lexer_peek_char (stream) == *=') 

{ 

stream. readByte (); 
return JSC$tRRSA; 

} 

else 

return JSC$tRRSHIFT; 

} 

else 

return JSC$tRSHIFT; 
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} 

/* Identifiers and keywords. */ 

else if ( JSC$lexer_is_identif ier_letter (ch) ) 

{ 

/* An identifier. */ 

//@@ var id ~ String . fromCharCode (ch) ; 
var id = " " + ch; 

while ( (ch = stream . readByte ()) != -1 

ScSa ( JSC$lexer_is_identif ier_letter (ch) 
| | JSC$lexer_is_decimal_digit (ch) ) ) 
id += ch; //@@ id. append (File . byteToString (ch) ) ; 

stream . ungetByte (ch) ; 

/* Keywords. */ 
if (id == "break") 
return JSC $t BREAK; 

id ~- "continue") 
JSC$tCONTINUE; 
id = = "delete") 
JSC$tDELETE; 
id "else") 
JSC$tELSE; 
id == "for") 
JSC$tFOR; 
id = = "function") 
JSC$tFUNCTION; 
id == "if") 
JSC$tIF; 
id = = "in") 
JSC$tIN; 
id == "new") 
JSC$tNEW; 
id == "return") 
JSC $t RETURN ; 
id == "this") 
JSC$tTHIS; 
id "typeof") 

JSC$tTYPEOF; 
id == "var") 
JSC $t VAR; 
id == "void") 
JSC$tVOID; 
id == "while") 
JSC$tWHILE; 
id == "with") 
return JSC$tWITH; 

/* 

* Future reserved keywords (some of these is already in use 

* in this implementation) . 
*/ 

else if (id == "case") 

return JSC$tCASE; 
else if (id == "catch") 
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return JSC$tCATCH; 
else if (id == "class") 

return JSC$tCLASS; 
else if (id == "const") 

return JSC$tCONST; 
else if (id == "debugger") 

return JSC$ tDEBUGGER ; 
else if (id == "default") 

return JS C $ t DE FAULT ; 
else if (id == "do") 

return JSC$tDO; 
else if (id == "enum") 

return JSC$tENUM; 
else if (id "export") 

return JSC$tEXPORT; 
else if (id == "extends") 

return JSC$ t EXTENDS ; 
else if (id == "finally") 

return JSC$ t FINALLY; 
else if (id == "import") 

return JSC$t IMPORT; 
else if (id == "super") 

return JSC$tSUPER; 
else if (id == "switch") 

return JSC$tSWITCH; 
else if (id == "throw") 

return JSC$tTHROW; 
else if (id == "try") 

return JSC$tTRY.; 

/* Null and boolean literals. */ 
else if (id == "null") 

return JSC$tNULL; 
else if (id == "true") 

return JSC$tTRUE; 
else if (id == "false") 

return JSC$tFALSE; 
else 

{ 

/* It really is an identifier. */ 
JSC$token_value = id; 
return JSC$t IDENTIFIER ; 

} 



/* Character constants. */ 

else if (ch == && JSC$lexer_peek_char (stream) == '\ ,r ) 

{ 

/* Skip the starting and read more. */ 

stream. readByte (); 

. ch = stream . readByte (); 
if (ch == '\\' ) 
{ 

JSC$token_value 

= JSC$lexer_read_backslash_escape (stream, 0, "character" 
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if {stream. readByte 0 != 1 V') 

error ( JSC$f ilename + " : " + JSC$linenum . toString () 
+ ": malformed character constant 1 '); 

} 

else if ( JSC$lexer_peek_char (stream) == '\'') 

{ 

stream. readByte (); 
JSC$token_value = ch; 

} 

else 

error (JSC$f ilename + ":" + JSC$linenum . toString () 
+ ": malformed character constant") ; 

return JSC$t INTEGER; 

} 

/* Octal and hex numbers. */ 

else if (ch == ' 0 * 

ScSc JSC$lexer_peek_char (stream) != 1 . ' 
S && JSC$ lexer_peek_char (stream) != ' e' 

yQ && JSC$lexer_peek_char (stream) != 'E') 

yi JSC$token_value = 0; 

p ch = stream. readByte (); 

-1 if (ch == «x' || ch == 'X') 

\J { 

~ ] ch = stream. readByte () ; 

w while ( JSC$lexer_is_hex_digit (ch) ) 

{ 

==? JSC$token_value *= 16; 

CQ JSC$token_value += JSC$lexer_hex_to_dec (ch) ; 

nj ch = stream . readByte () ; 

stream . ungetByte (ch) ; 

~ else 

{ 

while ( JSC$lexer_is_octal_digit (ch) ) 

{ 

JSC$token_value *= 8; 
JSC$token_value += ch - ' 0 ' ; 
ch = stream. readByte 0; 

} 

stream . ungetByte (ch) ; 

} 

return JSC$ t INTEGER; 

} 

/* Decimal numbers. */ 

else if ( JSC$lexer_is_decimal_digit (ch) 
|| (ch « 

ScSc JSC$lexer_is_decimal_digit ( 

JSC$lexer_peek_char (stream) ) ) ) 

{ 

var is_float = false; 

var buf = new String (File . byteToString (ch) ) ; 
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var accept_dot = true; 

if (ch == • . • ) 
{ 

/* 

* We started with ■ . ■ and we know that the next character 

* is a decimal digit (we peeked it) . 
*/ 

is_float = true; 

ch = stream . readByte (); 

while ( JSC$lexer_is_decimal_digit (ch) ) 

{ 

buf += ch; //@@ buf. append ( File . byteToString (ch) ) ; 
ch = stream- readByte (); 

} 

accept_dot = false; 

} 

else 

{ 

/* We did start with a decimal digit. */ 
ch = stream . readByte 0; 

while ( JSC$lexer_is_decimal_digit (ch) ) 

{ 

buf += ch; //@@ buf. append (File . byteToString (ch) ) ; 
ch = stream. readByte (); 

} 

} 

if ( (accept_dot && ch == ' . • ) 
| | ch == 'e' | | ch == 'E' ) 

{ 

is_float = true; 

if (ch == ' . ' ) 
{ 

buf += ch; //@@ buf. append ( File . byteToString (ch) ) ; 
ch = stream . readByte (); 

while ( JSC$lexer_is_decimal_digit (ch) ) 
{ 

buf += ch; //@@ buf. append ( File . byteToString (ch) ) ; 

ch = stream. readByte (); 

} 

} 

if (ch == 'e' || ch == ' E ' ) 
{ 

buf += ch; //®® buf. append (File . byteToString (ch) ) ; 
ch = stream. readByte 0 ; 
if (ch == ' + ' || ch == ' - ' ) 

{ 

buf += ch; //@@ buf. append ( File . byteToString (ch) ) ; 

ch = stream . readByte () ; 

} 

if ( ! JSC$lexer_is_decimal_digit (ch) ) 

error (JSC$ filename + " : " + JSC$linenum . toString () 
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+ " : malformed exponent part in a decimal literal") 
while ( JSC$lexer_is_decimal_digit (ch) ) 

{ 

buf += ch; //@@ buf . append ( File . byteToString (ch) ) ; 
ch = stream. readByte (); 

} 

} 

} 

/* Finally, we put the last character pack to the stream. */ 
stream -ungetByte (ch) ; 

if (is_float) 
{ 

JSC$token_value = parseFloat (buf) ; 
return JSC$ t FLOAT; 

} 

JSC$token_value = parselnt (buf) ; 
return JSC$t INTEGER; 

} 

/* Just return the character as-is. */ 
else 

return ch; 

} 

/* EOF reached. */ 
return JSC$tEOF; 

} 



/* 

* Help functions. 
*/ 

function JSC$lexer_peek_char (stream) 
{ 

var ch2 - stream . readByte (); 
stream . ungetByte (ch2); 

return ch2 ; 

} 



function JSC$ lexer_is_identif ier_letter (ch) 

{ 

return (('a' <= ch && ch <= 'z') || ('A' <= ch && ch <= 'Z') 
|| ch == '$• || ch == •_•) ; 

} 



function JSC$ lexer_is_octal_digit (ch) 

{ 

return ('0' <= ch && ch <= ' 7'); 

} 
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function JSC$lexer_is_decimal_digit (ch) 

{ 

return '0' <- ch && ch <= '9'; 

} 

function JSC$lexer_is_hex_digi t (ch) 
{ 

return (('O' <= ch && ch <= ' 9") 

|| ( ■ a ' <= ch && ch <= ' f • ) 
|| ( ' A ' <= ch ch <= 1 F ' ) ) ; 

} 

function JSC$lexer_is_white_space (ch) 
{ 

//©© return (ch == ' ' || ch == '\t' | | ch == ' \v | | ch == ' \r 

return (ch == 1 ' | | ch == • \t ' | | ch == r j s_VTAB | | ch == ' \r ' 
|| ch == -\f || ch == -\n' ) ; 



function JSC$lexer_hex_to_dec (ch) 
{ 

return (('0' <= ch && ch <= »9') 
? ch - • 0 • 

: ( ( ' a ' <= ch && ch <= ' f ■ ) 
? 10 + ch - 'a' 
: 10 + Ch - ' A ' ) ) ; 

} 

function JSC$lexer_read_backslash_escape (stream, possible_start , name) 

{ 

var ch = stream. readByte (); 
if (ch == , n t ) 



ch = ' \v ' ; 



ch 




•\n- ; 




else 


if 


(ch == ' 


t- ) 


ch 




'\t' ; 




else 


if 


(ch == ' 


V ) 


ch 




r j s VTAB ; 




else 


if 


(ch == 1 


b' ) 


ch 




' \b ' ; 




else 


if 


(ch == » 


r 1 ) 


ch 




'\r' ; 




else 


if 


(ch == ' 


f ■ ) 


ch 




'\f ; 




else 


if 


(ch == ' 


a' ) 


ch 




'\a' ; 




else 


if 


(ch == * 


W) 


ch 




'\\ r ; 




else 


if 


(ch == ' 


?') 


ch 




1 ? 1 • 
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else if (ch == * \ 1 ' ) 

ch = * \ ' ' ; 
else if (ch == ' " ' ) 

ch = 

else if (ch == ' x 1 ) 

{ 

/* HexEscapeSequence . */ 
var cl, c2 / 

cl = stream. readByte (); 
c2 = stream. readByte (); 

if (cl == -1 | | c2 == -1) 

JSC$lexer_eof_in_constant (possible_start , name); 

if ( ! JSC$lexer_is_hex_digit (cl) || ! JSC$lexer_is_hex_digit (c2)) 
error ( JSC$f ilename + " : " + JSC$linenum . toString () 
+ ": \\x used with no following hex digits' 1 ); 

ch = ( JSC$lexer_hex_to_dec (cl) << 4) + JSC$lexer_hex_to_dec (c2); 

} 

else if (ch == ' u 1 ) 

{ 

/* UnicodeEscapeSequence . */ 
var cl, c2, c3, c4 ; 

cl = stream . readByte ( ) 

c2 = stream. readByte () 

c3 = stream. readByte ( ) 

c4 = stream . readByte ( ) 

if (cl == -1 || c2 == -1 || c3 == -1 || c4 == -1) 
JSC$lexer_eof _in_constant (possible__start , name); 

if ( ! JSC$lexer_is_hex_digit (cl) || ! JSC$lexer_is_hex_digit (c2) 

|| ! JSC$lexer_is_hex_digit (c3) || ! JSC$lexer_is_hex_digit (c4) ) 
error (JSC$f ilename + " : " + JSC$linenum. toString () 
+ ": \\u used with no following hex digits"); 

ch = ( ( JSC$lexer_hex_to_dec (cl) << 12) 
+ ( JSC$lexer_hex_to_dec (c2) << 8) 
+ ( JSC$lexer_hex_to_dec (c3) << 4) 
+ JSC$lexer_hex_to_dec (c4) ) ; 

} 

else if ( JSC$lexer_is_octal_digit (ch) ) 

{ 

var result = ch - ' 0 ' ; 
var i = 1 ; 

if (ch == ' 0 ' ) 

/* Allow three octal digits after 'O'. */ 
i = 0; 

ch = stream . readByte (); 

while (i < 3 ScSc JSC$lexer_is_octal_digit (ch) ) 
{ 

result *= 8; 
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result += ch - 1 0 1 ; 

ch = stream . readByte (); 

i + + ; 

} 

stream . ungetByte (ch) ; 
ch- = result ; 

} 

else 
{ 

if (ch == -1) 

error ( JSC$f ilename + " : " + JSC$linenum. toString () 
+• " : unterminated " + name) ; 

JSC$warning (JSC$f ilename + ":" + JSC$linenum . toString () 
+ ": warning: unknown escape sequence "\\" 
+ File.byteToString (ch) + " ■ » ) ; 

} 

return ch; 

} 



function JSC$lexer_read_string (stream, name, ender) 

{ 

var str = new String ( " " ) ; 
var done = false, ch; 

var possible_start_ln = JSC$linenum; 
var warned__line_t erminator = false; 

while ( ! done) 

{ 

if (rjs__Error) return false; //@@ avoid infinite loop 

ch = stream . readByte (); 
if (ch == ' \n' ) 
{ 

if ( JSC$warn_strict_ecma ! warned_l ine_t erminator ) 

{ 

JSC$warning (JSC$f ilename + " : " + JSC$linenum . toString () 

+ ": warning: ECMAScript don't allow line terminators 

in " 

+ name + " constants"); 
warned_line_t erminator = true; 

} 

JSC$linenum++ ; 

} 

if (ch == -l) 

JSC$lexer_eof_in_constant (possible_start_ln / name) ; 

else if (ch == ender) 

done = true; 
else 

{ 

if (ch == '\\') 
{ 

if ( JSC$lexer_jpeek_char (stream) == ' \n ' ) 
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{ 

/* 

* Backslash followed by a newline character. Ignore 

* them both. 
*/ 

stream- readByte 0; 
JSC$linenum++ ; 
continue ; 

} 

ch = JSC$lexer_read_backslash_escape (stream, possible_start_ln, 

name) ; 

} 

str += ch; //@@ str. append (ch) ; 

} 

} 

return str; 

} 



function JSC$lexer_read_regexp_constant (stream) 

{ 

/* Regexp literal. */ 

var source = JSC$lexer_read_regexp_source (stream) ; 

/* Check the possible flags. */ 
var flags = new String ( 11 " ) ; 

while ( (ch = JSC$lexer_peek_char (stream)) == 'g' || ch == 'i') 
{ 

stream. readByte (); 

flags += ch; //@@ flags . append ( File . byteToString (ch) ) ; 

} 

/* Try to compile it. */ 
var msg = false; 
var result ; 

//@@ 

result = new RegExp (source, flags) ; 

J * * * @@ 
try 

{ 

result = new RegExp (source, flags) ; 

} 

catch (msg) 

{ 

var start = msg . last IndexOf (":"); 

msg = ( JSC$f ilename + " : " + JSC$ token_linenum . toString () 
+ " : malformed regular expression constant : " 
+ msg.substr (start + 1)); 

} 

* * * i 

if (msg) 

error (msg) ; 
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/* Success. */ 
return result; 



function JSC$lexer_read_regexp_source (stream) 

{ 

var str = new String ( " 11 ) ; 

var done = false, ch; 

var possible_start_ln = JSC$linenum; 

var warned_line_terminator = false; 

var name = "regular expression"; 

while ( ! done) 

{ 

if (rjs__ Error) return false; //@@ avoid infinite loop 

ch = stream . readByte 0; 

if (ch == ' \n' ) 
{ 

if ( JSC$warn_strict_ecma && ! warned_line_terminator ) 

{ 

JSC$warning ( JSC$f ilename + ":" + JSC$linenum . toString () 
+ " : warning: ECMAScript don't allow line " 
+ "terminators in " + name + " constants"); 

warned_line_terminator = true; 

} 

JSC$linenum++ ; 

} 

if (ch == -1) 

JSC$lexer_eof_in_constant (possible_start_ln / name) ; 

else if (ch == ' / ' ) 

done = true; 
else 

{ 

if (ch == '\\') 
{ 

ch = stream . readByte (); 
if (ch == ' \n ' ) 

{ 

/* 

* Backslash followed by a newline character. Ignore 

* them both. 
*/ 

JSC$linenum++ ; 
continue ; 

} 

if (ch == -1) 

JSC$lexer_eof_in_constant (possible_start_ln, name) ; 

/* Handle the backslash escapes. */ 
if (ch == ' f ' ) 
ch = ' \f ■ ; 
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else if (ch == ' n 1 ) 

ch = ' \n' ; 

else if (ch == ' r ■ ) 

ch = 1 \r 1 ; 

else if (ch == ' t ■ ) 

ch = ' \t ' ; 

else if (ch == ' v ' ) 

ch = rjs_VTAB; //@@ Bug with • == ' from original codes? 

ch == 1 \V ; 

else if (ch == ' c 1 ) 

{ 

/* SourceCharacter . */ 
ch = stream. readByte (); 
if (ch == -1) 

JSC$lexer_eof _in_constant (possible_start_ln, name) ; 

if (ch « 'Xn 1 ScSc JSC$warn_strict_ecma) 

JSC$warning ( JSC$f ilename + ":" + JSC$linenum . toString () 
^ + ": warning: ECMAScript don't allow line 

M termiantor after \\c in regular expression constants") ; 

MP 

Rj /* 

Lf| * Append the source-character escape start. The ch 

Q * will be appended later . 

Rj */ 

%.% str += "\\c"; //@@ str. append ("\\c"); 

else if (ch == ' u ' || ch == * x ■ || ch == '0') 
» { 

= /* These can be handled with the read_backslash_escape ( ) . */ 

stream . ungetByte (ch) ; 
FU ch = JSC$lexer_read_backslash_escape (stream) ; 

Q else 

a { 
~ /* 

* Nothing special. Leave it to the result as-is. 

* The regular expression backage will handle it. 
*/ 

stream. ungetByte (ch) ; 
ch = 'W ,- 

} 

} 

str += ch; //@@ str. append (File . byteToString (ch) ) ; 

} 

} 

return str ; 

} 



function JSC$lexer_eof _in_constant (possible_s tart , name) 

{ 

var msg = (JSC$f ilename + " : " + JSC$linenum . toString () 
+ ": unterminated " + name + " constant") ; 

if (possible_start > 0) 
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{ 

//@@ msg += (System. lineBreakSequence 
msg += ("\n" 

+ JSC$f ilename + " : " + possible_start . toString () 

+ " : possible real start of unterminated 11 + name + " constant") ; 

} 

error (msg) ; 

} 



in 
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/* 

Local variables : 

mode : c 

End: 

*/ 



m 
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/* 

* Parser. 

* Copyright (c) 1998 New Generation Software (NGS) Oy 
★ 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 
* 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 

* Library General Public License for more details. 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www. gnu . org/copylef t/gpl . html . 
*/ 

* 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to: 
* 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

******************************************** 



/* 

* $Source : /usr/local/cvsroot/ngs/ j s/j sc/parser . j s , v $ 

* $Id: parser. js,v 1.26 1998/10/26 15:25:21 mtr Exp $ 
*/ 

/* 

* Global functions . 
*/ 

function JSC$parser_reset () 
{ 

JSC$function = null; 
JSC$global_stmts = null; 

JSC$nested_f unction__declarations = null; 

} 
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function JSC$parser__parse (stream) 

{ 

JSC$linenum = 1; 
JSC$filename = stream. name; 
JSC$f unctions = new Array (); 
JSC$global_stmts = new Array (); 

JSC$nested_function_declarations = new Array (); 
JSC$anonymous_function_count = 0; 
JSC$parser_ peek_token_valid = false; 
JSC$num_tokens = 0; 

JSC$num_arguments_ident if iers = 0; 
JSC$num_missing_semicolons = 0; 

if ( JSC$verbose) 

JSC$message ("jsc: parsing' 1 ); 

while (JSC$parser_peek_token (stream) != JSC$tE0F) 
if ( ! JSC$parser_parse_source_element (stream)) 

{ 

JSC$parser_syntax_error () ; 

return false; //@@ avoid infinite loop 

} 



if ( JSC$verbose) 

{ 

var msg = ("jsc: input stream had " + (JSC$linenum - D.toString () 
+ " lines, " + JSC$num_tokens . toString () + " tokens") ; 

if ( JSC$num_missing_semicolons > 0) 

msg += ( " , " + JSC$num_missing_semi colons . toString () 
+ " missing semicolons") ; 

JSC$message (msg) ; 

} 

} 



/* 

* General help functions . 

*/ 

function JSC$parser_syntax_error () 
{ 

error (JSC$ filename + ":" + JSC$linenum . toString () + " : syntax error") 

} 

/* All warnings are reported through this function. */ 
function JSC$warning (line) 

{ 

r j s_warn ( line) ; //@@ System . stderr . writeln (line); 

} 

/* All messages are reported throught this function. */ 
function JSC$message (line) 
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{ 

r j s_inf o (line) ; //@@ System. stderr . writeln (line); 

} 

function JSC$parser_get_token (stream) 

{ 

JSC$num_tokens++ ; 
var token; 

if ( JSC$parser_peek_token_valid) 

{ 

JSC$parser_peek_token_valid = false; 

JSC$parser_token_value = JSC$parser_peek_token_value ; 
JSC$parser_token_linenum = JSC$parser_peek_token_l inenum; 
token ~ JSC$parser_peek_token_token ; 

} 

else 

{ 

token = JSC$lexer (stream) ; 
JSC$parser_token_value = JSC$token_value ; 
JSC$parser_token_linenum = JSC$token_l inenum; 

} 

if (token == JSC$t IDENTIFIER && JSC$parser_token_value == "arguments") 
JSC$num_arguments_identif iers++; 

return token; 

} 



function JSC$parser_peek_token (stream) 

{ 

if ( JSC$parser _peek_token_valid) 

return JSC$parser_peek_token_token; 
else 

{ 

JSC$parser_peek_token_token = JSC$lexer (stream) ; 
JSC$parser_jpeek_token_value = JSC$ token_value ; 
JSC$parser_peek_token_l inenum = JSC$ token_l inenum; 
JSC$parser_peek_token_valid = true; 
return JSC$parser_peek_token_token ; 

} 

} 



function JSC$parser_get_semicolon_asci (stream) 

{ 

var token = JSC$parser_peek_token (stream) ; 

if (token ' ; ' ) 
{ 

r j s Tokens . push ( " ; " ) ; //@@ 

/* Everything ok. It was there. */ 
return JSC$parser_get__token (stream) ; 

} 
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/* No semicolon. Let's see if we can insert it there. */ 
if (token == 1 } ■ 

| | JSC$parser_token_linenum < JSC$parser_peek_toJcen_linenum 

| | token == JSC$tEOF) 

{ 

r j s_Tokens .push { " ; " ) ; //@@ 

/* Ok, do the automatic semicolon insertion. */ 
if ( JSC$warn_missing_semicolon) 

JSC$warning ( JSC$f ilename + 11 : " + JSC$parser_token_linenum. toString () 
+ " : warning: missing semicolon") ; 
JSC$num_missing_semicolons++ ; 
return 1 ; 1 ; 

} 

/* Sorry, no can do. */ 
JSC$parser_syntax_error (); 

} 



function JSC$parser__expr_is_lef t_hand_side (expr) 

{ 

return (expr.etype == JSC$EXPR_CALL 



expr 


etype 




JSC$EXPR_ 


_OBJECT_PROPERTY 


expr 


etype 




JSC$EXPR~ 


~0B JECT_ARRAY 


expr 


etype 




jsc$expr" 


"new 


expr 


etype 




jsc$expr] 


"this 


expr 


etype 




JSC$EXPR_ 


"identifier 


expr 


etype 




jsc$expr~ 


_FLOAT 


expr 


etype 




jsc$expr" 


"integer 


expr 


etype 




jsc$expr~ 


JSTRING 


expr 


etype 




jsc$expr~ 


^REGEXP 


expr 


etype 




JSC$EXPR_ 


"array_initializer 


expr 


etype 




JSC$EXPR_ 


_NULL 


expr 


etype 




jsc$expr" 


"true 


expr 


etype 




JSC$EXPR_ 


~FALSE ) ; 



function JSC$parserj)arse_source_element (stream) 

{ 

r j s_Tokens .reset () ; //@@ 

if ( JSC$parser_parse_f unct ion_declaration (stream) ) 

{ 

r j s_Stmts .push ( r j s_Tokens . str ( ) ); //@@ save one statement 
return true; 

} 

r j s_Tokens . reset ( ) ; //@@ 

var stmt = JSC$parser_parse_stmt (stream) ; 

if (!stmt) 

return false; 
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if (stmt.stype == JSC $STMT_VARI ABLE ) 
/* 

* This is a variable declaration at the global level . These 

* are actually global variables. 
*/ 

stmt .global_level = true; 

r j s_xDomain ( ) ; //©© 
r j s_xLocation { ) ; //®@ 
rjs_xCookie () ; //@@ 

r j s_Stmts . push ( r j s_Tokens . str ( ) ); //@@ save one statement 
JSC$global_stmts . push (stmt) ; 
return true; 



function JSC$parser_parse_f unct ion_declaration (stream) 

{ 

var id, args, block; 

if ( JSC$parser_peek_token (stream) != JSC $t FUNCTION) 
return false; 

rj s_Tokens . push (" function 11 ) ; //@@ 

/* Record how many "arguments' identifiers have been seen so far. */ 
var num_arguments_identif iers = JSC$num_arguments_ident if iers ; 

JSC$parser_get_token (stream) ; 

if (JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error () ; 

id = JSC$parser_token_value ; 

var In = JSC$parser_token_linenum; 

var id_given = id; , 

r j s_Tokens .push (id_given) ; //@@ 

if (JSC$nested_f unction_declarations . length > 0) 

{ 

/* This is a nested function declaration. */ 

id = " . F : 11 + ( JSC$anonymous_f unction_count++) . toString (); 

} 

JSC$nested_f unction_declarations . push (id) ; 

if ( JSC$parser_get_token (stream) i= *(') 
JSC$parser_syntax_error (); 

r j s_Tokens .push ( " ( " ) ; //@@ 

/* Formal parameter list opt. */ 
args = new Array ( ) ; 

while ( JSC$parser_peek_token (stream) != ')') 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 
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if (JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 

JSC$parser_syntax_error () ; 
args.push (JSC$parser_token_value) ; 

r j s_Tokens . push ( JSC$parser_token_value ) ; //@@ 

var token = JSC$parser_peek_token (stream) ; 
if (token == » , ' ) 
{ 

r j s Tokens . push ( " , " ) ; //@@ 

JSC$parser_get__token (stream) ; 

if ( JSC$parser_peek_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

} 

else if (token ! = ' ) • ) 

JSC$parser_syntax_error (); 

} 

if ( JSC$parser_get_token (stream) != * ) *) 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( " ) "); //@@ 

JSC$parser_peek_token (stream) ; 

var lbrace_ln = JSC$parser_peek_token_linenum; 

block = JSC$parser_jparse_block (stream) ; 
if (typeof block == "boolean") 
JSC$parser_syntax_error () ; 

/* Did the function use the "arguments' identifier? */ 
var use_arguments = false; 

if ( JSC$num_arguments_identif iers > num_arguments_ident if iers ) 

{ 

use_arguments = true; 
if ( JSC$warn_deprecated) 

JSC$warning ( JSC$f ilename + ":" + ln.toString () 

+ 11 : warning: the "arguments' property of Function " 

+ "instance is deprecated"); 

} 

JSC$f unctions . push (new JSC$f unction_declaration (In, lbrace_ln, id, 

id_given , args , 
block, use_arguments ) ) 

JSC$nested_function_declarat ions . pop () ; 
return true ; 

} 



function JSC$parser_parse_block (stream) 

{ 

var block; 
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if (JSC$parser_peek — token (stream) != '{') 
return false; 

//@@ original NGS bug ?? JSC$parser_get_token (stream) != • {'; 
JSC$parser_get_token (stream) ; 

r j s Tokens . push ( " { 11 ) ; //@@ 

var In = JSC$parser_peek_token_linenum; 

/* Do we have a statement list? */ 
if ( JSC$parser_peek_token (stream) != '}') 
/* Yes we have. */ 

block = JSC$parser_parse_stmt_list (stream) ; 
else 

/ * Do we don ■ t * / 
block = new Array ( ) ; 

if ( JSC$parser_get_token (stream) != '}') 
JSC$parser_syntax_error (); 



J? r j s_Tokens .push ( " } " ) ; //@@ 

G block . linenum = In; 

SA return block ; 



function JSC$parser_parse_stmt_lis t (stream) 

{ 

var list, done, item; 

list = new Array () ; 
done = false; 

while ( ! done) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

item = JSC$parser_parse_stmt (stream) ; 
if (typeof item == "boolean") 

{ 

/* Can't parse more statements. We'r done. */ 
done = true; 

} 

else 

list. push (item); 

} 

return list; 



function JSC$parser_parse_stmt (stream) 

{ 

var item, token; 
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if (typeof (item = JSC$parser_parse_block (stream)) != "boolean") 

return new JSC$stmt_block ( item . linenum, item); 
else if (JSC$parserj)arse_function_declaration (stream) ) 

{ 

//@@ 

/* XXX The function declaration as statement might be incomplete. */ 

if ( JSC$nested_f unct ion_declarat ions . length == 0) 

/* Function declaration at top-level statements. */ 
return new JSC$stmt_empty ( JSC$parser_token_linenum) ; 

/* Function declaration inside another function. */ 

var container_id = JSC$nested_f unct ion_declarat ions . pop (); 
JSC$nested_f unct ion_declarations .push (container_id) / 

var f = JSC$f unctions [JSC$f unctions . length - 1] ; 
var function_id = f . name ; 
var given_id = f . name_given; 

return new JSC$s tmt_f unction_declarat ion ( JSC$parser_token_linenum, 

container_id, function_id, 
given_id) ; 

} 

else if (typeof (item = JSC$parser_parse_variable_stmt (stream)) 
!= "boolean") 
return item; 

else if (typeof (item = JSC$parser_parse_if _stmt (stream)) 
!= "boolean") 
return item; 

else if (typeof (item = JSC$parser_j?arse_iteration_stmt (stream) ) 
!= "boolean") 
return item; 

else if (typeof (item = JSC$parser_parse_expr (stream) ) 
!= "boolean") 

{ 

if (item.etype == JSC$EXPR_IDENTIFIER) 
{ 

/* Possible "Labeled Statement'. */ 
token = JSC$parser_peek_token (stream) ; 

if (token == ':* item. linenum == JSC$parser _peek_token_linenum) 

{ 

/* Yes it is . */ 
JSC$parser_get_token (stream) ; 

r j s_Tokens . push ( " : " ) ; //@@ 

var stmt = JSC$parser_parse_stmt (stream) ; 
if (I stmt) 

JSC$parser_syntax_error ; 

return new JSC$stmt_labeled_stmt ( item . linenum, item. value, 

stmt) ; 

} 

/* FALLTHROUGH */ 

} 
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JSC$parser_get_semicolon_asci (stream) ; 
return new JSC$s tmt_expr (item) ; 

} 

se 

{ 

token = JSC$parser_peek_token (stream) ; 
if (token == • ; ' ) 
{ 

r j s_Tokens . push ( " ; " ) ; / /@@ 
JSC$parser_get_token (stream) ; 

return new JSC$stmt_empty (JSC$parser_token_linenum) ; 

} 

else if (token == JSC$tCONTINUE) 
{ 

rj s_Tokens . push ( "continue "); //@@ 

JSC$parser_get_token (stream) ; 

/* Check the possible label. */ 
var label = null; 

token = JSC$parser_jpeek_token (stream) ; 
if (token == JSC$t IDENTIFIER 

&& JSC$parser_token_linenum == JSC$parser_peek_token_linenum) 

{ 

JSC$parser_get_token (stream) ; 
label = JSC$parser_token_value ; 

rj s_Tokens . push ( label ) ; //@@ 

} 

item = new JSC$stmt_cont inue ( JSC$parser_token_linenum, label) ; 
JSC$parser_get_semicolon_asci (stream) ; 
return item; 

} 

else if (token == JSC$tBREAK) 
{ 

JSC$parser_get_token (stream) ; 

rj s_Tokens .push ( "break "); //@@ 

/* Check the possible label. */ 
var label = null ; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$t IDENTIFIER 

ScSc JSC$parser_token_linenum == JSC$parser_peek_token_linenum) 

{ 

JSC$parser_get_token (stream) ; 
label = JSC$parser_token_value ; 

rj s_Tokens . push ( label ) ; //@@ 

} 
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item = new JSC$stmt_break (JSC$parser_token_linenum, label) ; 
JSC$parser_get_semicolon_asci (stream) ; 
return item; 

} 

else if (token == JSC$tRETURN) 
{ 

JSC$parser_get_token (stream) ; 

var linenum = JSC$parser_token_linenum; 

r j s_Tokens . push ( " return " ) ; / /@@ 

if (JSC$parser_peek_token (stream) == ' ; ■ ) 

{ 

/* Consume the semicolon. */ 
JSC$parser_get_token (stream) ; 
item = null; 

r j s_Tokens . push (";"); / / @@ 

} 

else 

{ 

if ( JSC$parser_jpeek_token_linenum > linenum) 
{ 

/* 

* A line terminator between t RETURN and the next 

* token that is not a semicolon. ASCI here. 
*/ 

if (JSC$warn_missing_semi colon) 

JSC$warning ( JSC$f ilename + ":" + linenum . toString () 
+ ": warning: missing semicolon") ; 

JSC$num_missing_semicolons++ ; 
item = null; 

} 

else 

{ 

item = JSC$parser_parse_expr (stream) ; 
if (typeof item == "boolean") 
JSC$parser_syntax_error (); 

JSC$parser_get_semicolon_asci (stream) ; 

} 

} 

return new JSC$stmt_return (linenum, item) ; 

} 

else if (token == JSC$tSWlTCH) //@@ 
{ 

JSC$parser_get_token (stream) ; 

return JSC$parser_ parse_switch (stream) ; 

} 

else if (token == JSC$tWITH) 
{ 

rj s_Tokens . push ( "with "); //@@ 
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JSC$parser_get_token (stream) ; 

var linenum = JSC$parser_token_linenum; 

if ( JSC$parser_get__token (stream) != '(') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("("); / /@@ 

var expr = JSC$parser_parse_expr (stream) / 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

if ( JSC$parser_get_token (stream) != ')') 
JSC$parser__syntax_error ( ) ; 

rjs_Tokens .push ( " ) " ) ; //@@ 

var stmt = JSC$parser_parse__stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error () ; 

return new JSC$s tmt_wi th (linenum, expr, stmt) ; 

} 

else if {token == JSC$tTRY) //@@ 
{ 

JSC$parser_get_token (stream) ; 
return JSC$parser_parse_try (stream) ; 

} 

else if (token == JSC$tTHROW) //@@ 
{ 

JSC$parser_get_token (stream) / 

var linenum = JSC$parser_token_linenum; 

/* 

* Get the next token's linenum. We need it for strict_ecma 

* warning. 
*/ 

JSC$parser_peek_token (stream) ; 

var peek_l inenum = JSC$parser_peek token linenum; 

/* The expression to throw. */ 
var expr = JSC$parser_parse_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$warn_strict_ecma peek_linenum > linenum) 

JSC$warning ( JSC$f ilename + " : " + JSC$linenum. toString () 

+ " : warning: ECMAScript don't allow line terminators" 
+ " between "throw' and expression"); 

JSC$parser_get_semicolon_asci (stream) ; 

return new JSC$stmt_throw (linenum, expr) ; 

} 

else 

/* Can't parse more. We 1 r done. */ 
return false; 
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function JSC$parser_parse_switch (stream) 

{ 

var linenum = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) !='(') 
JSC$parser_syntax_ error (); 

var expr = JSC$parser_parse_expr (stream) ; 
if ( ! expr) 

JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != *)*) 
JSC$parser__syntax_error (); 

if ( JSC$parser_get_token (stream) != '{') 
JSC$parser_syntax_error (); 

/* Parse case clauses. */ 
var clauses = new Array () ; 
while (true) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

var token = JSC$parser_get_token (stream) ; 

if (token == * } ■ ) 
break; 

else if (token == JSC$tCASE | | token == JSC$ tDEFAULT) 
{ 

var stmts = new Array () ; 
stmts. expr = null; 

if (token == JSC$tCASE) 
{ 

stmts. expr = JSC$parser _j)arse_expr (stream) ; 
if (! stmts . expr ) 

JSC$parser_syntax_ error (); 

} 

if (JSC$parser_get__token (stream) != 1 : ') 
JSC$parser_syntax_error (); 

stmts . linenum = JSC$parser_token_linenum; 

/* Read the statement list. */ 
while (true) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

token = JSC$parser_peek_token (stream) ; 

if (token == 1 } ' | | token == JSC$tCASE | | token == JSC$ tDEFAULT) 
/* Done with this branch. */ 
break; 
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var stmt = JSC$parser_parse_stmt (stream) ; 
if (!stmt) 

JSC$parser_syntax_error () ; 

stmts. push (stmt); 

} 

stmts . last_linenum = JS C$ parse r_token__line num; 

/* One clause parsed. */ 
clauses. push (stmts); 

} 

else 

JSC$parser_syntax — error () ; 

} 

return new JSC$stmt_switch (linenum, JSC$parser_token_linenum, expr, 

clauses) ; 

} 

function JSC$parser_parse_try (stream) 

{ 

var linenum = JSC$parser_token_linenum; 

var block = JSC$parserj)arse_stmt (stream) ; 
if (Iblock) 

JSC$parser_syntax_error ( ) ; 

var try_block_last_linenum = JSC$parser_token_linenum; 

/* Now we must see "catch 1 or "finally 1 . */ 
var token = JSC$parser_peek_token (stream) ; 
if (token != JSC$tCATCH && token != JSC $t FINALLY) 
JSC$parser_syntax_error ( ) ; 



var catch_list = false; 
if (token == JSC$tCATCH) 
{ 

/* Parse catch list. */ 
catch_list = new Array (); 

catch_list . linenum = JSC$parser_peek_token_linenum; 

while (token == JSC$tCATCH) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 



JSC$parser_get_token (stream) ; 
var c = new Object () ; 

c. linenum = JSC$parser_token_linenum; 



if ( JSC$parser_get_token (stream) != '(') 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != JSC $ 1 1 DENT I F I ER ) 
JSC$parser_syntax_error (); 
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} 



c.id = JSC$parser_token_value ; 
c. guard = false; 

if ( JSC$parser_peek_token (stream) == JSC$tIF) 
{ 

JSC$parser_get_token (stream) ; 

c . guard = JSC$parser_parse_expr (stream); 

if ( ! c . guard) 

JSC$parser_syntax_error () ; 

} 

if ( JSC$parser_get_token (stream) != ')') 
JSC$parser_syntax_error (); 

c.stmt = JSC$parser_parse_stmt (stream); 
if (ic.stmt) 

JSC$parser_syntax_error (); 

catch_list . push (c) ; 

token - JSC$parser_peek_token (stream) ; 

} 

catch_list . last_linenum = JSC$parser_token_linenum; 



var fin = false; 

if (token == JSC$t FINALLY) 

{ 

/* Parse the finally. */ 
JSC$parser_get_token (stream) ; 

fin = JSC$parser_parse_stmt (stream) ; 
if (if in) 

JSC$parser_syntax_error ( ) ; 

} 

return new JSC$stmt_try (linenum, try_block_last_linenum, 

JSC$parser_token_linenum, block, catch_list / 
fin) ; 



function JSC$parser_parse_variable_stmt (stream) 

{ 

var list, id, expr, token; 

if ( JSC$parser_peek_token (stream) != JSC$tVAR) 
return false; 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

rj s_Tokens .push ( "var "); / 

list = new Array (); 
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while (true) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$t IDENTIFIER) 
{ 

JSC$parser_get_token (); 

id = JSC$parser_token_value ; 

r j s_Tokens . push ( id) ; / / @@ 

if (JSC$parser_peek_token (stream) == '=') 

{ 

r j s_Tokens .push ( " =" ) ; //@@ 
JSC$parser_get_token (stream) ; 

expr = JSC$parser_parse_assignment_expr (stream) ,* 
if (typeof expr == "boolean") 
JSC$parser_syntax_error (); 

} 

else 

expr - null; 

list. push (new JSC$var_declarat ion (id, expr)); 

// @@ r j s_debug ( " JSC$parser_parse_variable_stmt : var " + id + " = " + 
expr. value) ; 

/* Check if we have more input. */ 

if (JSC$parser_peek_token (stream) == 1 , ' ) 

{ 

/* Yes we have. */ 
JSC$parser_get_token (stream) ; 

r j s_Tokens . push ( " , " ) ; //@@ 

/* The next token must be t IDENTIFIER. */ 
if ( JSC$parser_peek_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

} 

else 
{ 

/ * No, we don ' t . * / 

JSC$parser_get_semicolon_asci (stream) ; 
break; 

} 

} 

else 
{ 

/* We'r done. */ 

JSC$parser_get_semicolon_asci (stream) ; 
break; 

} 

} 

/* There must be at least one variable declaration. */ 
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if (list. length == 0) 

JSC$parser_syntax_error () ; 

return new JSC$stmt_variable (In, list) ; 

} 



function JSC$parser_parse_if _s tmt (stream) 

{ 

var expr, stmt, stmt2; 

if ( JSC$parser_peek_token (stream) != JSC$tIF) 
return false; 



r j s_Tokens . push ( " if " ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != '(') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("("); / /@@ 

expr - JSC$parser_parse_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error ( ) / 

if ( JSC$parser_get_token (stream) != *)') 
JSC$parser_syntax_error (); 

r j s^Tokens .push ( " ) " ) ; //@@ 

stmt = JSC$parser_parse_stmt (stream) / 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_peek_token (stream) == JSC$tELSE) 

{ 

r j s_Tokens . push ( " else " ) ; //@@ 

JSC$parser_get_token (stream) ; 
stmt2 = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt2 == "boolean") 
JSC$parser_syntax_error (); 

} 

else 

stmt 2 = null; 

return new JSC$stmt_if (In, expr, stmt, stmt2) ; 



function JSC$parser_parse_iteration_stmt (stream) 

{ 

var token, exprl, expr2 , expr 3 , stmt; 
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token = JSC$parser_peek_token (stream) ; 
if (token == JSC$tDO) 
{ 

rjs_Tokens .push(" do " ) ; //@@ 

/* do Statement while (Expression) ; */ 
JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error (); 

if (JSC$parser_get_token (stream) != JSC$tWHILE) 
JSC$parser_syntax_error () ; 

r j s__Tokens . push ( " while " ) ; //@@ 

if ( JSC$parser_get_token (stream) != '(') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("("); //@@ 

exprl = JSC$parser_parse_expr (stream) ; 
if (typeof exprl = = "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error () ; 

r j s_Tokens . push (")")/ / /@@ 

JSC$parser_get_semicolon_asci (stream) ; 

return new JSC$s tmt_do_while (In, exprl, stmt); 

} 

else if (token == JSC$tWHILE) 

{ 

r j s^Tokens . push ( " while "); //@@ 

/* while (Expression) Statement */ 
JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != '(') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("("); / /@@ 

exprl = JSC$parser_parse__expr (stream) ; 
if (typeof exprl == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error () ,- 

rj s_Tokens .push ( " ) ")/ //@@ 
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stmt = JSC$parserj)arse__stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error (); 

return new JSC$stmt_while (In, exprl, stmt) 

} 

else if (token == JSC$tFOR) 
{ 

r j s_Tokens . push ( " for " ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != '{•) 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( " ( 11 ) ; //©© 

/* Init */ 

var vars = null; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$tVAR) 
{ 

JSC$parser_get_token (stream) ; 
r j s_Tokens . push ( "var "); //@@ 
vars = new Array ( ) ; 
while (true) 

{ 

if (rjs_Error) return false; / /®@ avoid infinite loop 

/* The identifier. */ 

token = JSC$parser — peek_token (stream) ; 
if (token != JSC $t IDENTIFIER) 
break; 

JSC$parser_get_token (stream) ; 
var id = JSC$parser_token_value ; 

r j s_Tokens . push ( id) ; / /@@ 

/* Possible initializer. */ 
var expr = null; 

if ( JSC$parser_peek_token (stream) == '=') 

{ 

JSC$parser_get_token (stream) ; 
r j s_Tokens . push (" = "); / /@@ 

expr = JSC$parser_parse_assignment_expr (stream) ; 
if ( ! expr) 

JSC$parser_syntax_error (); 
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} 

vars.push (new JSC$var_declaration (id, expr)); 

/* Check if we have more input. */ 

if ( JSC$parser_peek_token (stream) == ' , 1 ) 

{ 

/ * Yes we have . * / 
JSC$parser_get_token (stream) ; 

r j s_Tokens . push (","); / / @@ 

/* The next token must be tIDENTIFIER. */ 
if (JSC$parser_peek_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

} 

else 

/* No more input. */ 
„_ break; 

Ln /* Must have at least one variable declaration. */ 

Q if (vars. length == 0) 

fy JSC$parser_syntax_error (); 

sj > 

= else if (token != ';') 

f ( 

1_ exprl = JSC$parser_parse_expr (stream) ; 

Jj? if (typeof exprl == "boolean") 

W JSC$parser_syntax_error (); 

yp else 

p exprl = null; 

token = JSC$parser_get_token (stream) ; 
var for_in = false; 

if (token ==•;') 
{ 

r j s_Tokens .push ( " ; " ) ; / /@@ 
/* Normal f or-statement . */ 
/* Check */ 

if ( JSC$parser_peek_token (stream) != ';*) 

{ 

expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 

} 

else 

expr 2 = null; 

if ( JSC$parser_get_token (stream) != ';') 
JSC$parser_syntax_error (); 
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r j s_Tokens .push ( " ; " ) ; //@@ 
/* Increment */ 

if ( JSC$parser_j?eek_token (stream) != 1 )') 

{ 

expr3 = JSC$parser__parse_expr (stream) ; 
if (typeof expr3 == "boolean") 
JSC$parser_syntax_error ( ) ; 

} 

else 

expr3 = null; 

} 

else if (token == JSC$tIN) 
{ 

/* The s for (VAR in EXPR) ' -statement . */ 
r j s_Tokens .push ( " in " ) ; //@@ 
for_in = true; 
if (exprl) 

{ 

/* The first expression must be an identifier. */ 
if (exprl. etype != JSC$EXPR_IDENTIFIER) 
JSC$parser_syntax_error (); 

} 

else 

{ 

/* We must have only one variable declaration. */ 
if (vars . length != 1) 

JSC$parser_syntax_error (); 

} 

/* The second expressions. */ 
expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 

} 

else 

JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ')') 
JSC$parser_syntax_error (); 

r j s_Tokens .push ( " ) " ) ; //@@ 

/* Stmt. */ 

stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error (); 

if (for_in) 

return new JSC$stmt_f or__in (In, vars, exprl, expr2 , stmt) ; 
return new JSC$stmt_for (In, vars, exprl, expr2 , expr3 , stmt); 

} 

return false; 
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function JSC$parser_parse_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_assignment_expr (stream) ) 
== "boolean") 
return false; 

/* Check for the comma expression. */ 

while ( JSC$parser_peek_token (stream) == ',*) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

r j s_Tokens .push ( " , " ) ; //@@ 

r j s_xDomain ( ) ; //@@ 

r j s_xLocation ( ) ; // 

r j s_xCookie ( ) ; /> 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if (typeof (expr2 = JSC$parser_parse_assignment_expr (stream) ) 
== "boolean") 
JSC$parser_syntax_error (),- 
expr = new JSC$expr_comma (In, expr, expr2 ) ; 

} 

return expr; 



function JSC$parser_parse_assignment_expr (stream) 

{ 

r j s_debug ( " JSC$parser_parse_assignment_expr " ) ; / 
var expr, expr 2 , token; 

if (typeof (expr = JSC$parser_parse_conditional_expr (stream) ) 
== "boolean") 
return false; 

if ( JSC$parser_expr_is_lef t_hand_side (expr) ) 

{ 

r j s_AssignmentState = "lhs"; 



token = JSC$parser_peek_token (stream) ; 
if (token == 1 = 1 || token == JSC$tMULA 



token == JSC$tDIVA 
token == JSC$ tADDA 
token == JSC$tLSIA 
token == JSC$tRRSA 
token == JSC$tXORA 

{ 

/ / @@ r u le >>>>>>>>>>>>>>>>>>>>>>>>> 



| token == JSC$tMODA 

| token JSC$tSUBA 

| token == JSC$tRSIA 

j token == JSC$ tANDA 

j token == JSC$tORA) 
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var str = " " ; 

if (rjs_isEndOfLHS ( "location" ) | | rj s_isEndOfLHS ( " location . href " ) ) 

str = r j s_xUrlBegin { r j s_t2s (token) + " rmi__xlateURL { " ); 
r j s_XUrl_nesting .push (0) ; // for tracking '(' 

lse if (rjs_isEndOfLHS (" .action") ) 

str = r j s_xActionBegin ( rj s_t2s (token) + " rmi_xlateURL ( " ) ; 



r j s_XAction_ne sting . push ( 0 ) ; 
lse if (rjs_isEndOfLHS ( " . innerHTML") ) 



// for tracking ' ( ' 



str = r j s_x!nnerHtmlBegin ( r j s_t2s (token) + "rmi_xlate(" ); 



// for tracking ' ( 



" ) ; 

// for tracking 1 ( 



r j s_XInnerHtml_ne sting . push ( 0 ) ; 

lse if (rj s_isEndOf LHS ( "document . cookie ") ) 

// @@ rule: document . cookie = cookieStr 
str = r j s_xCookieBegin ( " rmi_setCookie ( \ " \ 11 
rj s_XCookie_nes ting . push (0) ; 

} 

else 

str = r j s_t2s (token) ; 

rj s_Tokens . push ( str) ; 

r j s_AssignmentState = "rhs"; 

r j s_popDomain ( ) ; 

r j s_popLocation ( ) ; 

r j s_popCookie ( ) ; 

//@@ <<<<<<<<<<<<<<<<<<<<<<<<<<< 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

expr = new JSC $ expr_as s ignment (In, token, expr, expr2) ; 

} 

} 

if ( JSC$optimize_constant_f olding && expr . constant_f olding) 
return expr . constant_f olding (); 

// @@rule In translation state and no more unmatched ' ( ■ 
if (rjs_XUrl_on r j s_ret Top (rj s__XUrl_ne sting) == 0 ) 



{ 



more 

} 



r j s_Tokens . push ( r j s_xUrlEnd ( " ) " ) ) / 
r j s_XUrl_ne sting . pop ( ) ; 



// no need to track 1 (* any 
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// @@rule In translation state and no more unmatched ' (' 

if (r j s_XCookie_on && r j s_retTop (r j s_XCookie_ne s t ing ) == 0 ) 

{ 

r j s_Tokens .push ( r j s_xCookieEnd ( " ) " ) ); 

rjs_XCookie_nesting.pop () ; // no need to track '(' any- 

more 

} 

// @@rule In translation state and no more unmatched ' (' 

if (r j s_XAction_on && r j s_retTop (rj s_XAction_ne sting) == 0 ) 

{ 

r j s_Tokens .push ( r j s_xActionEnd ( " ) " ) ); 

r j s_XAction_ne sting . pop ( ) ; // no need to track ' {' any- 

more 

} 

// @@rule In translation state and no more unmatched ' ( ' 

if (r j s_XInnerHtml_on && r j s_retTop (r j s_XInnerHtml_nes ting) == 0 ) 

{ 

r j s_Tokens . push ( r j s_xInnerHtmlEnd ( " ) " ) ) ; 

r js_XInnerHtml_nes ting. pop () ; // no need to track '(' 

any more 

} 

return expr; 

} 

function JSC$parser_parse_conditional_expr (stream) 

{ 

var expr, expr2 , expr3 , token; 

if (typeof (expr = JSC$parser_parse_logical_or_expr (stream) ) 
== "boolean") 
return false ; 



token = JSC$parser_peek_token (stream) ; 
if (token == ' ? * ) 
{ 

r j s_Tokens . push ("?"); / /@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ':') 
JSC$parser_syntax_error ( ) ; 

r j s_Tokens . push { " : " ) ; //@@ 

expr3 = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr3 == "boolean") 
JSC$parser_syntax_error () ; 
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expr = new JSC$expr_quest_colon (In, expr, expr2 , expr3); 

} 

return expr; 

} 



function JSC$parser_parse_logical_or_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_logical_and_expr (stream) ) 
== "boolean") 
return false ; 

while ( JSC$parser_peek_token (stream) == JSC$tOR) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

r j s_Tokens . push ( " | | " ) ; / /@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_logical_and_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

expr = new JSC$expr_logical_or (In, expr, expr2); 

} 

return expr; 

} 



function JSC$parser_parse_logical_and_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_bitwise_or_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_j?eek_token (stream) == JSC$tAND) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rjs_Tokens .push ("&&") ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parserj)arse - bitwise_or_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 
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expr = new JSC$expr_logical_and (In, expr, expr2); 

} 

return expr; 

} 

function JSC$parser_parse_bitwise_or_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_bitwise_xor_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == ' | ' ) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

r j s_Tokens . push ( " | " ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse__bitwise_xor_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

expr = new JSC$expr_bitwise_or (In, expr, expr2) ; 

} 

return expr; 

} 

function JSC$parser_parse_bitwise_xor_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse__bitwise_and_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == ■ A 1 ) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

r j s_Tokens . push ( " A " ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_bitwise_and_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

expr = new JSC$expr_bitwise_xor (In, expr, expr2); 

} 
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return expr; 

} 



function JSC$parser_parse_bitwise_and_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_equali ty_expr (stream) ) 
= = "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == '&') 

{ 

if (rjs_Error) return false; / /@@ avoid infinite loop 

r j s_Tokens . push <"&"); / /@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_equality_expr (stream) ,* 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 

expr = new JSC$expr_bitwise_and (In, expr, expr2 ) ; 

} 

return expr; 

} 



function JSC$parser_parse_equality_expr (stream) 

{ 

var expr, expr2 , token; 

if (typeof (expr = JSC$parser_parse_relational_expr (stream)) 
== "boolean") 
return false ; 

token = JSC$parser_peek_token (stream) ; 

while (token -= JSC$tEQUAL | | token == JSC$ tNEQUAL 

| | token == JSC$tSEQUAL | | token == JSC$ tSNEQUAL) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rj s_Tokens .push (rj s_t2s (token) ); //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_ token_linenum; 

expr2 - JSC$parser_parse_relational_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

expr = new JSC$expr_equality (In, token, expr, expr2 ) ; 
token = JSC$parser_peek_token (stream) ; 

} 
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return expr; 

} 



function JSC$parser_parse_relational_expr (stream) 

{ 

var expr, expr2 , token; 

if (typeof (expr = JSC$parser_parse_shif t_expr (stream)) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 

while (token == ' < ' || token == || token == JSC$tLE 

| | token = = JSC$tGE) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

~ rjs_Tokens .push (rjs_t2s (token) ); //@@ 

]jf JSC$parser_get_token (stream) ; 

var l n = JSC$parser_token_linenum; 

= 9*! 

O expr2 = JSC$parser_parse_shif t_expr (stream) ; 

fy if (typeof expr2 == "boolean") 

SJ JSC$parser_syntax_error (); 

expr = new JSC$expr_relational (In, token, expr, expr2); 
token = JSC$parser_peek_token (stream) ; 

return expr; 

*s } 



function JSC$parser_parse_shif t_expr (stream) 

{ 

var expr, expr2 , token; 

if (typeof (expr = JSC$parser_parse_additive_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_peek__token (stream) ; 
while (token == JSC$tLSHIFT | | token == 
{ 

if (rjs_Error) return false; 
rj s_Tokens . push (rj s_t2s (token) ) ; 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_additive_expr (stream) ; 

if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 



JSC$tRSHIFT | | token == JSC$ tRRSHIFT) 

//@@ avoid infinite loop 
//@@ 
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expr = new JSC$expr_shif t (In, token, expr, expr2); 
token = JSC$parser_peek_token (stream) ; 

} 

return expr; 

} 



function JSC$parser_parse_additive_expr (stream) 

{ 

var expr, expr 2 , token; 

if (typeof (expr = JSC$parser_parse_multiplicative_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 
while (token == | | token == '-') 

{ 

~ if (rjs_Error) return false; 

^ rjs Tokens . push (token) ; 

— 

Lm JSC$parser_get_token (stream) ; 

O var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_multiplicative_expr (stream) ; 
if (typeof expr2 == "boolean") 
~~ JSC$parser_syntax_error (); 

r=f expr = new JSC$expr_additive (In, token, expr, expr 2) ; 

token = JSC$parser_peek_token (stream) ; 

s.5 : 

Q return expr ,* 



function JSC$parser_parse_multiplicative_expr (stream) 

{ 

var expr, expr 2 , token; 

if (typeof (expr = JSC$parser_parse_unary_expr (stream)) == "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 
while (token == ' * ' || token == '/' I I token == '%') 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rj s_Tokens ..push (token) ; //@@ 

jSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_unary_expr (stream) ; 
if (typeof expr2 == "boolean" ) 
JSC$parser_syntax_error () ; 



//@@ avoid infinite loop 
//@@ 
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expr = new JSC$expr_multiplicative (In, token, expr, expr2) ; 
token = JSC$parser_peek_token (stream) ; 

} 

return expr; 

} 



function JSC$parser_parse_unary_expr (stream) 

{ 

var expr, token; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$tDELETE 

| | token == JSC$tVOID 

| | token == JSC$tTYPEOF 

| | token == JSC$tPLUSPLUS 

| | token == JSC$tMINUSMINUS 

| I token == 1 + ' 

| | token == ' - ' 

| | token == ' - 1 

| j token == ' ! • ) 

{ 

rjs_Tokens . push (r j s_t2s (token) ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser__token_linenum; 

expr = JSC$parser_parse_unary_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error (); 

return new JSC$expr_unary (In, token, expr) ; 

} 

return JSC$parser_parse_postf ix_expr (stream) ; 

} 



function JSC$parser_parse_post f ix_expr (stream) 

{ 

var expr, token; 

if (typeof (expr = JSC$parser_parse_lef t_hand_side_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_ peek_token (stream) ; 

if (token == JSC$ tPLUSPLUS | | token == JSC$ tMINUSMINUS ) 
{ 

if ( JSC$parser_peek_token_linenum > JSC$parser_token_linenum) 

{ 

if ( JSC$warn_missing_semicolon) 
JSC$warning ( JSC$f ilename + " : " 

+ JSC$parser_token_linenum. toString () 
+ ": warning: automatic semicolon insertion cuts the 
expression before ++ or --"),* 
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} 

else 

{ 

rj s_Tokens .push (r j s_t2s (token) ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

return new JSC$expr_postf ix (In, token, expr) ; 

} 

} 

return expr; 

} 



function JSC$parser_parse_lef t_hand_side_expr (stream) 

{ 

var expr, args , token, expr 2 ; 

if (typeof (expr = JSC$parser_parse_member_expr (stream) ) 
= = "boolean" ) 
return false; 

/* Parse the possible first pair of arguments. */ 
i*f ( JSC$parser_peek_token (stream) == '(') 

{ 

var In = JSC$parser_peek_token_linenum; 

args = JSC$parser_parse_arguments (stream) ; 
if (typeof args == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_call (In, expr, args) ; 

} 

else 

return expr; 

/* Parse to possibly following arguments and selectors. */ 
while ((token = JSC$parser_peek_token (stream)) == ■(' 
| | token == ' [ ' || token == ' . ' ) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

var In = JSC$parser_peek_token_linenum; 

if (token == • ( ■ ) 
{ 

args = JSC$parser_parse_arguments (stream) ; 
expr = new JSC$expr__call (In, expr, args) ; 

} 

else if (token == 1 [ ' ) 

{ 

r j s_Tokens .push { M " + token); //@@ 
JSC$parser_get_token (stream) ; 
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expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ']') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("]"); / /@@ 

expr = new JSC$expr_obj ect_array (ln # expr, expr2) ; 

} 

else 

{ 

r j s_Tokens , push ( " " + token); // token '.' //@@ 

JSC$parser_get_token (stream) ; 

if ( JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error () ; 

rjs_Tokens .push ( " " + JSC$parser_token_value) ; //@@ 

expr = new JSC$expr_ob j ect_property (In, expr, 

JSC$parser_token_value) 

} 

} 

return expr; 

} 



function JSC$parser_parse_member_expr (stream) 

{ 

var expr, args, token, expr2 ; 

if (typeof (expr = JSC$parser_parse_primary_expr (stream) ) 
== "boolean") 

{ 

token = JSC$parser_peek_token (stream) ; 

if (token == JSC$tNEW) 
{ 

rj s_Tokens . push ( "new " ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr = JSC$parser_parse_member_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_j>eek_token (stream) == ■(') 

{ 

args = JSC$parserj)arse_arguments (stream) ; 
if (typeof args == "boolean") 
JSC$parser__syntax_error () ; 

} 

else 
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return new JSC$expr_new (In, expr, null) ; 
expr = new JSC$expr_new (In, expr, args) ; 

} 

else 

return false ; 

} 

/* Ok, now we have valid starter. */ 
token = JSC$parser_peek_token (stream) ,* 
while (token == ' [ ' || token == '.') 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

JSC$parser_get_token (stream) ; 
var In = JSC$par ser_token_l inenum ; 

if (token == • [ ' ) 
{ 

r j s_Tokens . push ("["); / / @@ 

r j s_ incTopForNesting ( ) ; //@@ see [ 

r j s_BracketState = "in"; //@@ 

r j s_save Frames () ; //@@ rule 

expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != *] ') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("]"); / /@@ 

r j s_xFrames ( ) ; //@@ rule 

rj s_Bracket State = "out"; //@@ 

r j s_decTopForNesting ( ) ; / /©© see ] 

expr = new JSC$expr_obj ect^array (In, expr, expr2) ; 

} 

else 

{ 

r j s_Tokens . push ( " . " ) ; // token ' . ' //@@ 

if (JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( JSC$parser_token_value) ; //@@ 

rj s_xLayers ( JSC$parser_token_value) ; //@@ rule 

r j s_saveDomain ( ) ; //@@ rule 

// r j s_saveLocation ( ) ; //@@ rule 

expr = new JSC$expr_obj ect_property (In, expr, 

JSC$parser_token_value ) 

} 

token = JSC$parser_peek_token (stream) ; 

r j s_saveLocat ion ( ) ; //@@ rule 



49 



r j s_saveCookie ( ) ; //@@ rule 

} 

r j s_s ave S t anda 1 oneLoc a t i on ( ) ; //@@ rule 
return expr; 



function JSC$parser_parse_primary_expr (stream) 

{ 

r j s_debug ( " JSC$parser_parse_primary_exp" ) ; //@® 
var token, val; 

token = JSC$parser — peek_token (stream) ; 
var In = JSC$parser_peek_token_linenum; 

if (token == JSC$tTHIS) 
{ 

r j s_Tokens . push ( "this ") ; //@@ 
val = new JSC$expr_this (In) ; 

} 

else if (token == iTSC$t IDENTIFIER) 
{ 

val = new JSC$expr_identif ier (In, JSC$parser_peek_token_value) ; 
r j s_Tokens . push ( JSC$parser_peek_token_value) ; //©© 

rjs_debug( "JSC$t IDENTIFIER : " + JSC$parser_peek_token_value + ", " + 
r j s_AssignmentState ); //@@ 

if (JSC$parser_peek_token_value == "document") //@@ rule 

r j s_LayerState = "doc"; 

if (rjs_BracketState != "in") //@@ If not in [] 

r j s_saveIndexFor ( " id" ) ; //@@ save current identifier index 

lse if (token == JSC$tFLOAT) //@@ 

r j s_Tokens . push ( JSC$parser_peek_token_value) ; //@@ 
val = new JSC$expr_f loat (In, JSC$parser_peek_token_value) ; 

lse if (token == JSC$ t INTEGER) //@@ 

r j s_Tokens - push ( JSC$parser_peek_token_value) ; //@@ 
val = new JSC$expr_integer (In, JSC$parser_peek_token_value) ; 

lse if (token == JSC$tSTRING) 

r j s_Tokens - push ( " \ " " + JSC$parser_peek_token_value + "\""); //@@ 
val = new JSC$expr_string (In, JSC$parser_peek_token_value) ; 

else if (token == ■/') //@@ 
{ 

/* 
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* Kludge alert! The regular expression constants (/.../) and 

* div operands are impossible to distinguish, based only on the 

* lexical analysis. Therefore, we need some syntactical 

* knowledge when the regular expression constants are possible 

* at all. This is the place where they can appear. In all 

* other places, the character is interpreted as a div 

* operator. 
*/ 

JSC$parser_get_token (stream) ; 
/ / @@ >>>>>>>>>>>>>>>>>>>>>>> 

// return new JSC$expr_regexp (In, JSC$lexer_read_regexp_constant 
(stream) ) ; 

var regexp = JSC$lexer_read_regexp_constant (stream) ; 
r j s_Tokens . push (regexp) ; 

return new JSC$expr_regexp (In, regexp); 
// <<<<<<<<<<<<<<<<<<<<<<< 

} 

else if (token == JSC$tNULL) 

r j s_Tokens . push ( "null ") ; //@@ 
val = new JSC$expr_null (In) ; 

else if (token == JSC$tTRUE) 

r j s_Tokens . push ( "true " ) ; / /@@ 

val = new JSC$expr_true (In) ; 

else if (token == JSC$tFALSE) 

r j s_Tokens . push ( " false " ) ; / /@@ 

val = new JSC$expr_f alse (In) ; 

else if (token == • [') 

{ 

/* Array initializer. */ 

/* TODO: SharpVarDef inition_{opt } */ 

r j s_Tokens . push ( ' [ 1 ) ; //@@ 
JSC$parser_get_token (stream) ; 

var items = new Array (); 
var pos = 0 ; 

while ((token = JSC$parser_ peek_token (stream)) != ']') 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

if (token == ' , ' ) 
{ 

r j s_Tokens .push ( ' , ' ) ; //@@ 
JSC$parser_get_token (stream) ; 
items [++pos] = false; 
continue ; 

} 
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var expr = JSC$parser_parse_assignment_expr (stream) ; 
if ( ! expr) 

JSC$parser_syntax_error () ; 

items [pos] = expr; 

/* Got one expression. It must be followed by ' , ' or '] 1 . */ 
token = JSC$parser_peek_token (stream) ; 
if (token != && token != ']') 

JSC$parser_syntax_error () ; 

} 

if (token == ']') r j s Tokens . push { " ] " ) ; //@@ 

val = new JSC$expr_array_initializer (In, items) ; 

} 

else if (token == ' { ' ) 
{ 

/* Object literal. */ 

/* TODO: SharpVarDef inition_{opt } */ 

r j s_Tokens . push ('{'); / /@@ 

JSC$parser__get_token (stream) ; 

var items = new Array () ; 

while ((token = JSC$parser_peek_token (stream)) != ■}') 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

var pair = new Object () ; 

token - JSC$parser_get_token (stream) ; 

pair.linenum = JSC$linenum; 

pair.id_type = token; 

pair. id = JSC$parser_token_value ; 

if (token != JSC$t IDENTIFIER token != JSC$tSTRING 
&& token != JSC$ t INTEGER ) 
JSC$parser_syntax_error (); 

if (token == JSC$tSTRING) r j s_Tokens . push ( » \ " " + pair. id + »\«n) 

//@@ 

else if (token == JSC$t IDENTIFIER) r j s_Tokens . push (pair . id) ; 

//@@ 

if ( JSC$parser_get_token (stream) != ':') 
JSC$parser_syntax_error () ; 

r j s_Tokens . push (':'); / /@@ 

pair. expr = JSC$parser_parse__assignment_expr (stream); 
if ( Ipair.expr) 

JSC$parser_syntax_error () ; 
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items. push (pair) ; 
/* 

* Got one property, initializer pair. It must be followed 

* by ' , ' or • } ■ . 
*/ 

token = JSC$parser__peek_token (stream) ; 
if (token == • , • ) 
{ 

r j s_Tokens . push (','); / / @@ 

/* Ok, we have more items. */ 
JSC$parser_get_token (stream) ; 

token = JSC$parser_peek_token (stream) ; 

if (token != JSC$t IDENTIFIER && token != JSC$tSTRING 
&& token != JSC$t INTEGER) 
JSC$parser_syntax_error (); 

} 

else if (token != ' }» && token) 
JSC$parser_syntax_error (); 

} 

if (token == *}') r j s_Tokens . push ( " } " ) ; //@@ 
val = new JSC$expr_ob j ect_init ializer (In, items) ; 

} 

else if (token == ' (') 
{ 

r j s_Tokens . push ("("); //@@ 

r j s_incTopForNesting ( ) ; //@@ see ( 

JSC$parser_get_token (stream) ; 

val = JSC$parserj)arse_expr (stream) ,* 
if (typeof val == "boolean" 

| | JSC$parser_peek_token (stream) != ') *) 
JSC$parser_syntax_error () ; 

r j s_Tokens . push (")"); / /@@ 

r j s_decTopForNe sting ( ) ; //@@ see ) 

} 

else 

return false; 

JSC$parser_get_token (stream) ; 

//@@ r j s_debug ( " JSC$parser_ parse_primary_expr : " + yal [ * value'] ); 
return val; 



function JSC$parser_parse_arguments (stream) 

{ 

var args, item; 
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if ( JSC$parser_peek_token (stream) != ' (*) 
return false; 

args = new Array () ; 

r j s_Tokens . push { 11 ( " ) ; / /@@ 

r j s_saveOpen ( ) ; // @@ 

r j s_saveWrite { ) ; //@@ 

r j s_saveReplace ( ) ; //@@ 

r j s_incTopForNesting ( ) ; //@@ see ( 

JSC$parser_get__token (stream) ; 

while (JSC$parser_peek_token (stream) != *)') 

{ 

if (rjs_Error) return false; //©© avoid infinite loop 

item = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof item == "boolean") 
JSC$parser_syntax_error (); 
args. push (item); 

var token = JSC$parser_peek_token (stream) ; 
if (token == • , ' ) 

JSC$parser_get_token (stream) ; 
else if (token != ') ') 

JSC$parser_syntax_error () ; 

if (token == * ) ' ) 
{ 

rjs_xOpen(); //@@ rule 

r j s_xWrite ( ) ; //@@ rule 

r j s_xReplace ( ) ; / /@@ rule 

rj s_decTopForNesting ( ) ; //@@ see ) 

} 

rj s_Tokens .push ( " " + token); //@@ 

} 

if (token ! = • ) ' ) 
{ 

r j s_decTopForNesting ( ) ; // will insert ) 

rjs_Tokens.push(") ") ; // take care of () //@@ 

} 

JSC$parser_get_token (stream) ; 
return args; 
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/* 

Local variables : 

mode : c 

End: 

*/ 
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/* 

* Grammar components . 

* Copyright (c) 1998 New Generation Software (NGS) Oy 
* 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 
* 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the GNU 

* Library General Public License for more details. 
* 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www . gnu . org/ copy lef t/gpl . html . 
*/ 

* 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to: 
* 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

******************************* 

/ * @@ 

* Remove this. asm = *; 

* Remove function JSC$*_asm () { . . . } 
*/ 



/* 

* $Source: /usr/local/cvsroot/ngs/ j s/ j sc/gram . j s , v $ 

* $Id: gram.js,v 1.22 1998/10/26 15:25:21 mtr Exp $ 
*/ 

/* General helpers. */ 
function JSC$gram_reset () 

{ 
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JSC$label_count = 1; 

JSC$cont_break = new JSC$ContBreak (); 

} 



function JSC$alloc_label (num_labels) 

{ 

JSC$ label_count += num_labels; 
return JSC$label_count - num_labels; 

} 



function JSC$f ormat_label (num) 

{ 

return 11 . L " + num. toString (); 

} 



function JSC$count_locals_f rom_stmt_list (list) 

{ 

var i ; 

/* First, count how many variables. we need at the toplevel . */ 
var 1 count = 0; 

for (i = 0; i < list. length; i++) 

lcount += list [i] .count_locals (false); 

/* Second, count the maximum amount needed by the nested blocks. */ 
var rmax = 0 ; 

for (i - 0; i < list. length; i++) 

{ 

var rc ~ list [i] . count_locals (true) ; 
if (rc > rmax) 
rmax = rc ; 

} 

return lcount + rmax; 

} 

/* 

* The handling of the "continue" and "break* labels for looping 

* constructs. The variable " JSC$cont_break ' holds an instance of 

* JSC$ContBreak class. The instance contains a valid chain of 

* looping constructs and the currently active with and try testing 

* levels. The actual "continue 1 , "break', and "return' statements 

* investigate the chain and generate appropriate "with^pop' and 

* "try_pop' operands. 
* 

* If the instance variable "inswitch" is true, the continue statement 

* is inside a switch statement. In this case, the continue statement 

* must pop one item from the stack. That item is the value of the 

* case expression. 
*/ 

function JSC$ContBreakFrame (loop_break, loop_continue , inswitch, label, next) 

{ 
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this . loop_break = loop_break; 

this . loop__continue = loop_ continue ; 

this . inswitch = inswitch; 

this . label = label; 

this. next = next; 

this . with_nest ing = 0; 
this . try_nesting = 0; 

} 



function JSC$ContBreak () 

{ 

this. top = new JSC$ContBreakFrame (null, null, false, null); 

} 

new JSC$ContBreak () ; 

function JSC$ContBreak$push (loop_break, loop_continue , inswitch, label) 

{ 

this. top = new JSC$ContBreakFrame (loop_break, loop_continue , inswitch, 

label, this. top); 

} 

JSC$ContBreak. prototype .push = JSC$ContBreak$push; 
function JSC$ContBreak$pop () 

{ 

if (this. top == null) 

error ("jsc: internal error: continue-break stack underflow") ; 

this. top = this . top . next ; 

} 

JSC$ContBreak .prototype . pop = JSC$ContBreak$pop ; 
/* 

* Count the currently active "try 1 nesting that should be removed on 

* "return' statement. 
*/ 

function JSC$ContBreak$try_return_nesting () 

{ 

var f ; 

var count = 0 ; 

for (f = this. top; f; f = f.next) 
count += f . try _nes ting; 

return count; 

} 

JSC$ContBreak. prototype . try_return_nest ing = JSC$ContBreak$ try_return_ne sting ; 
/* 

* Count currently active "with' nesting that should be removed on 

* "continue 1 or "break 1 statement. 
*/ 

function JSC$ContBreak$count__wi th_nest ing (label) 

{ 

var f ; 




58 



• 



var count = 0 ; 

for (f = this. top; f; f = f .next) 

{ 

count += f . wit h_ne sting ; 
if (label) 
{ 

if (f. label == label) 
break; 

} 

else 

if ( f . loop_continue) 
break; 

} 

return count ; 

} 

JSC$ContBreak .prototype . count_with_ne sting = JSC$ContBreak$count_with_nesting ; 
/* 

* Count the currently active "try' nesting that should be removed on 

* "continue' or "break 1 statement. 
*/ 

function JSC$ContBreak$count_try_nest ing (label) 

{ 

var f ; 

var count = 0 ; 

for (f = this. top; f; f = f .next) 

{ 

count += f . try _ne sting ; 
if (label) 
{ 

if (f. label == label) 
break; 

} 

else 

if ( f . loop_continue) 
break; 

} 

return count ; 

} 

JSC$ContBreak. prototype . count_try_nesting = JSC$ContBreak$count_try_nesting; 
function JSC$ContBreak$count_switch_nesting (label) 

{ 

var f ; 

var count = 0 ; 

for (f = this. top; f; f = f.next) 

{ 

if (f.inswitch) 

count ++ ; 
if (label) 

{ 

if (f. label == label) 
break; 

} 
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else 

if ( f . loop_continue) 
break; 

} 

return count ; 

} 

JSC$ContBreak. prototype . count_switch_ne sting 
= JSC$ContBreak$count_switch_nesting; 

function JSC$ContBreak$get_cont inue (label) 

{ 

var f ; 

for (f = this. top; f; f = f .next) 
if (label) 
{ 

if (f. label == label) 

return f . loop_cont inue ; 

} 

else 

if ( f . loop_continue) 

return f . loop_cont inue ; 

return null; 

} 

JSC$ContBreak . prototype . get_continue = JSC$ContBreak$get_continue ; 
function JSC$ContBreak$get_break (label) 

{ 

var f ; 

for (f = this. top; f; f = f . next ) 
if (label) 
{ 

if (f. label == label) 
return f . loop_break; 

} 

else 

if (f . loop_break) 

return f . loop_break; 

return null; 

} 

JSC$ContBreak . prototype . get_break = JSC$ContBreak$get_break ; 
function JSC$ContBreak$is_unique_label (label) 

{ 

var f ; 

for (f = this. top; f; f = f.next) 
if (f. label == label) 
return false; 

return true; 

} 

JSC$ContBreak . prototype . is_unique_label = JSC$ContBreak$is_unique_label ; 



60 



JSC$cont_break = null; 

/* Function declaration. */ 

function JSC$f unct ion_declarat ion (In, lbrace_ln, name, name_given, args, 

block, use_arguments_prop) 

{ 

this.linenum = In; 

this . lbrace_linenum = lbrace_ln; 

this. name = name; 

this . name_given - name_given; 

this. args = args ; 

this. block = block; 

this . use_arguments_prop - use_arguments_prop ; 

} 

function JSC$zero_f unction () 

{ 

return 0; 

} 

/* 

* Statements. 
*/ 

/* Block. */ 

function JSC$stmt_block (In, list) 

{ 

rjs_debug ( " JSC$stmt_block : n ) ; 

this.Stype = JSC$STMT_BLOCK; 
this.linenum = In; 
this. stmts = list; 

this . count_locals = JSC$stmt_block_count_locals ; 

} 

function JSC$stmt_block_count_locals (recursive) 

{ 

if ( ! recursive) 
return 0 ; 

return JSC$count_locals_f rom_stmt_list (this . stmts) ; 

} 

/* Function declaration. */ 

function JSC$stmt_f unction_declarat ion (In, container_id, function_id, 

given_id) 

{ 

r j s_debug ( " JSC$stmt_f unct ion_declaration : " ) ; 

this.Stype = JSC$STMT_FUNCTI0N_DECLARATION; 
this . linenum = In; 

this . container_id = container id; 
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this . f unction_id = f unction_id ; 

this .given_id = given_id; 

this . count_locals = JSC$zero_f unction; 

} 

/* Empty */ 

function JSC$stmt_empty (In) 
{ 

this.Stype = JSC$STMT_EMPTY; 
this . linenum = In; 

this . count_locals = JSC$zero_f unction; 

} 

/* Continue. */ 

function JSC$stmt_continue (In, label) 

{ 

r j s_debug ( " JSC$stmt_continue : " ) ; 

this.Stype = JSC$STMT_CONTINUE ; 
this . linenum = In; 
this . label = label; 

this . count_locals = JSC$ zero_f unction ; 

} 

/* Break. */ 

function JSC$stmt_break (In, label) 
{ 

r j s_debug ( " JSC$stmt_break : » ) ; 

this.Stype = JSC$STMT_BREAK; 
this . linenum = In; 
this, label = label ,- 

this . count_locals = JSC$ zero_f unction ; 

} 

/* Return. */ 

function JSC$stmt_return (In, expr) 
{ 

rj s_debug ( " JSC$stmt_return : " ) ; 

this.Stype = JS C $ S TMT_RE TURN ; 
this. linenum = In; 
this. expr = expr; 

this . count_locals = JSC$zero_f unction; 

} 

/* Switch. */ 

function JSC$stmt_switch (In, last_ln, expr, clauses) 

{ 

rjs — debug ("JSC$stmt_switch: " ) ; 
this.Stype = JSC$STMT_SWITCH; 
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this. linenum = In; 

this . last_linenum = last_ln; 

this.expr = expr; 

this. clauses = clauses; 

this . count__locals = JSC$stmt_switch_count_locals ; 

} 

function JSC$stmt_switch_count_locals (recursive) 

{ 

var locals = 0; 
var i , j ; 

if (recursive) 

/* For the recursive cases, we need the maximum of our clause stmts. */ 
for (i = 0; i < this . clauses . length ; i++) 

{ 

var c = this . clauses [i] ; 

for (j = 0; j < c. length; j++) 

{ 

var 1 = c[j] . count_locals (true); 
if (1 > locals) 
locals = 1; 

} 

} 

} 

else 

{ 

/* 

* The case clauses are not blocks. Therefore, we need the amount, 

* needed by the clauses at the top-level. 
*/ 

for (i = 0; i < this . clauses . length; i++) 
{ 

var c = this . clauses [i] ; 

for (j = 0; j < c. length; j++) 

locals += c[j] . count_locals (false); 

} 

} 

return locals; 



/* With. */ 

function JSC$stmt_with (In, expr, stmt) 
{ 

r j s_debug ( " JSC$stmt_with : " ) ; 

this.stype = JSC$STMT_WITH; 
this. linenum = In; 
this.expr = expr; 
this. stmt = stmt; 

this . count_locals = JSC$s tmt_with_count_locals ; 

} 
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function JSC$stmt_with_count_locals (recursive) 

{ 

if ( ! recursive) 
{ 

if (this. stmt. stype == JSC$STMT_VARIABLE) 
return this . stmt . list . length; 

return 0; 

} 

else 

return this . stmt . count_locals (true); 

} 



/* Try. */ 

function JSC$stmt__try (In, try_block_las t_ln, try_last_ln, block, catch_list, 

fin) 

{ 

rjs_debug ( M JSC$stmt_try: ") ; 

this. stype = JSC$STMT_TRY; 
this.linenum = la- 
this . try_block_last_linenum = try_block_last_ln ; 
this . try__last_linenum = try_last_ln; 
this. block = block; 
this . catch_list = catch_list; 
this. fin = fin; 

this . count_locals = JSC$stmt__try_count_locals ; 

} 

function JSC$stmt_try_count_locals (recursive) 

{ 

var count = 0 ; 
var c ; 

if (recursive) 

{ 

c = this . block . count_locals (true) ; 
if (c > count) 
count = c; 

if ( this . catch_list ) 

{ 

var i ; 

for (i = 0; i < this . catch_list . length; i++) 

{ 

c = this . catch_list [i] . stmt . count_locals (true) ; 
if (c > count) 
count = c ; 

} 

} 

if (this. fin) 
{ 

c = this . fin . count_locals (true) ; 
if (c > count) 
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count = C ; 

} 

} 

else 
{ 

if (this .block. stype == JSC$STMT_VARIABLE) 
count += this . block . list . length; 

if (this . catch_list ) 

{ 

/* One for the call variable. */ 
count++ ; 

var i ; 

for (i = 0; i < this . catch_list . length; i++) 

if (this . catch_list [i] . stmt . stype == JSC$STMT_VARIABLE) 
count += this . catch_list [i] . stmt . list . length; 

} 

if (this. fin) 

if ( this . fin . stype = 
count += this. fin. 

} 

return count; 

} 



/* Throw. */ 
function JSC$stmt_throw (In, expr) 

{ 

r j s_debug ( " JSC$stmt_throw: ") ; 

this. stype = JSC$STMT_THROW; 
this.linenum = In; 
this. expr = expr; 

this . count_locals = JSC$zero_f unction; 

} 

/* Labeled statement. */ 

function JSC$stmt_labeled_stmt (In, id, stmt) 
{ 

r j s_debug ( " JSC$stmt_labeled_stmt : " ) ; 

this, stype = JSC$STMT__LABELED_STMT ; 
this.linenum = In; 
this . id = id; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_labeled_stmt_count_locals ; 

} 

function JSC$stmt__labeled_stmt_count_locals (recursive) 

{ 

return this . stmt . count_locals (recursive); 

} 



= JS C $ STMT_VAR I ABLE ) 
list . length; 
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/* Expression. */ 

function JSC$stmt_expr (expr) 

{ 

r j s_debug ( "JSC$stmt_expr : " ) ; 

this.stype = JSC$STMT_EXPR; 
this . linenum = expr . linenum; 
this. expr = expr; 

this . count_locals = JSC$ zero_f unction ; 

} 

/* If. */ 

function JSC$stmt_if (In, expr, stmtl, stmt2) 
{ 

r j s_debug ( " JSC$stmt_if : " ) ; 

this.stype = JSC$STMT_IF; 
this. linenum = In; 
this. expr = expr; 
this. stmtl = stmtl; 
this.stmt2 = stmt2; 

this . count_locals = JSC$stmt_if _count_locals ; 

} 

function JSC$stmt_if _count_locals (recursive) 

{ 

var lcount; 

if ( ! recursive) 

{ 

lcount = 0; 

if (this. stmtl. stype == JSC$STMT_VARIABLE) 
lcount += this . stmtl . list . length; 

if (this.stmt2 != null && this . stmt 2 . stype == JSC$STMT_VARIABLE) 
lcount += this . stmt2 . list . length; 

} 

else 

{ 

lcount = this . stmtl . count_locals (true) ; 
if (this.stmt2) 

{ 

var c = this . stmt2 . count_locals (true) ; 
if (c > lcount) 
lcount = c; 

} 

} 

return lcount; 



/* Do. . .While . */ 
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function JSC$stmt_do_while (In, expr, stmt) 
{ 

rjs_debug ( " JSC$stmt_do_while : ") ; 

this.Stype = JSC$STMT_DO_WHILE ; 
this. linenum = In; 
this. expr = expr; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_do_while_count_locals 

} 

function JSC$s tmt_do_while_count_locals (recursive) 

{ 

if ( ! recursive) 
{ 

if (this . stmt . stype == JSC$STMT_VARIABLE) 
return this . stmt . list . length; 

return 0; 

} 

else 

return this . stmt . count_locals (true); 

} 

/* While. */ 

function JSC$stmt_while (In, expr, stmt) 
{ 

rjs_debug("JSC$stmt_while: ) ; 

this.Stype = JSC$STMT_WHILE; 
this. linenum = In; 
this. expr = expr; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_while_count_locals; 

} 

function JSC$stmt_while_count_locals (recursive) 

{ 

if ( ! recursive) 
{ 

if (this. stmt. stype == JSC$STMT_VARIABLE) 
return this . stmt . list . length; 

return 0 ; 

} 

else 

return this . stmt . count_locals (true); 

} 



/* For. */ 

function JSC$stmt_for (In, vars , el, e2 , e3, stmt) 
{ 

r j s_debug ( " JSC$stmt_f or : " ) ; 
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this.stype = JSC$STMT_FOR; 
this . linenum = la- 
this, vars = vars ; 
this.exprl - el; 
this.expr2 = e2 ; 
this.expr3 = e3; 
this. -stmt = stmt; 

this . count_locals ~ JSC$stmt_f or_count__locals ; 

} 

function JSC$stmt_f or_count_locals (recursive) 

{ 

var count = 0 ; 
if (recursive) 

{ 

if (this.vars) 

count += this .vars . length; 

count += this . stmt . count_locals (true); 

} 

else 
{ 

if (this . stmt . stype == JS C $ S TMT_VAR I ABLE ) 
count += this . stmt . list . length; 

} 

return count; 



/* For ... in. */ 

function JSC$stmt_f or_in (In, vars, el, e2, stmt) 
{ 

r j s_debug ( " JSC$stmt_f or_in : " ) ; 

this.stype = JSC$STMT_FOR_IN ; 
this. linenum = In; 
this.vars = vars ; 
this.exprl = el; 
this.expr2 = e2 ; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_f or_in_count_locals 

} 

function JSC$stmt_f or_in_count_locals (recursive) 

{ 

var count = 0 ; 
if (recursive) 

{ 

if (this.vars) 
count ++ ; 

count += this . stmt . count locals (true) ; 
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} 

else 
{ 

if (this . stmt . stype = = JSC$STMT_VARIABLE) 
count += this . stmt . list . length; 

} 

return count; 



/* Variable. */ 

function JSC$s tmt_variable (In, list) 
{ 

this. stype = JSC$STMT_VARIABLE ; 
this.linenum = In; 
this . global_level = false ; 
this. list = list; 

this . count_locals = JSC$stmt_variable_count_locals 

} 

ion JSC$stmt_variable_count_locals (recursive) 

( ! recursive) 

if ( this . global_level ) 

/* We define these as global variables. */ 
return 0 ; 

return this . list . length; 

} 

return 0; 

} 

function JSC$var_declaration (id, expr) 

{ 

r j s_debug ( " JSC$var_declaration - n + id); 

this. id = id; 
this. expr = expr; 

} 



/* 

* Expressions. 
*/ 

/* This. */ 

function JSC$expr_this (In) 
{ 

r j s_debug ( " JSC$expr__this : " ) ; 
this.etype = JSC$EXPR_THIS ; 



f unct 

{ 

if 

{ 
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this.linenum = In; 

} 

/* Identifier. */ 

function JSC$expr_identif ier (In, value) 

{ 

r j s_debug ( " JSC$expr_ident if ier : " + value) 

this.etype = JSC$EXPR_IDENTIFIER; 
this.linenum = In; 
this. value = value; 

} 



/* Float. */ 

function JSC$expr_f loat (In, value) 
{ 

rjs_debug("JSC$expr_f loat : ") ; 

this.etype = JSC$EXPR_FLOAT; 
this . lang_type = JSC$ JS_FLOAT ; 
this.linenum = la- 
this, value = value; 

} 

/* Integer. */ 

function JSC$expr_integer (In, value) 
{ 

r j s_debug ( " JSC$expr_integer : " ) ; 

this.etype = JSC$EXPR_INTEGER ; 
this . lang_type = JSC$ JS_INTEGER; 
this.linenum = In; 
this. value = value; 

} 

/* String. */ 

function JSC$expr_string (In, value) 
{ 

rj s_debug ( " JSC$expr_string : " +. value) ; 

this.etype = JSC$EXPR_STRING; 
this . lang_type = JSC$ JS_STRING; 
this.linenum = In; 
this. value = value; 

} 

/* Regexp . */ 

function JSC$expr_regexp (In, value) 

{ 

r j s_debug ( " JSC$expr__regexp : " ) ; 
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this.etype = JSC$EXPR_REGEXP; 
this.lang_type = JSC$ JS_BUILTIN; 
this . linenum = In; 
this. value = value; 

} 

/* Array initializer. */ 

function JSC$expr_array_initializer (In, items) 

{ 

r j s_debug ( " JSC$expr_array_initializer : ") ; 

this.etype = JSC$EXPR_ARRAY_INITIALIZER; 
this . lang_type = JSC$ JS_ARRAY; 
this . linenum = In; 
this. items = items; 

} 

/* Object initializer. */ 

function JSC$expr__ob j ect_initializer (In, items) 

{ 

r j s_debug ( " JSC$expr_obj ect_initializer : " ) ; 

this.etype = JSC$EXPR_OBJECT_INITIALIZER; 
this . lang_type = JSC$JS_OB JECT; 
this. linenum = In; 
this. items = items; 

} 

/* Null. */ 

function JSC$expr_null (In) 

{ 

r j s_debug ( " JSC$expr_null : " ) ; 

this.etype = JSC$EXPR_NULL ; 
this . lang_type = JSC$JS_NULL; 
this. linenum = In; 

} 

/* True. */ 

function JSC$expr_true (In) 

{ 

r j s_debug ( " JSC$expr__true : " ) ; 

this.etype = JSC$EXPR_TRUE ; 
this . lang_type = JSC$ JS_BOOLEAN ; 
this. linenum = In; 

} 

/* False. */ 

function JSC$expr_f alse (In) 

{ 

r j s_debug ( " JSC$expr_f alse : " ) ; 
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this.etype = JSC$EXPR_FALSE ; 
this . lang_type = JSC$ JS^BOOLEAN ; 
this.linenum = In; 



/* Multiplicative expr. */ 

function JSC$expr_mult iplicat ive (In, type, el, e2) 

{ 

r j s_debug ( " JSC$expr_multiplicat ive : " ) ; 

this.etype = JSC$EXPR_MULTIPLICATIVE ; 
this.linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 

} 

/* Additive expr. */ 

function JSC$expr_addit ive (In, type, el, e2) 

{ 

r j s_debug ( " JSC$expr_addit ive : " ) ; 

this.etype = JSC$EXPR_ADDITIVE ; 
this.linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 

this . constant_f olding = JSC$expr_additive_constant_f olding ; 

} 

function JSC$expr_additive_constant_f olding () 

{ 

if (this . el . constant_f olding) 

this. el = this . el . constant_f olding (); 
if (this . e2 . constant_f olding) 

this.e2 = this . e2 . constant_f olding (),*' 

/* This could be smarter. */ 

if ( this . el . lang_type && this . e2 . lang_type 

SlSc this . el . lang_type == this . e2 . lang_type ) 

{ 

switch ( this . el . lang_type) 
{ 

case JSC$JS_INTEGER: 

return new JSC$expr_integer (this.linenum, 

this. type == '+' 

? this . el . value + this . e2 . value 
: this . el . value - this . e2 .value) 

break; 

case JSC$JS_FLOAT: 

return new JSC$expr_f loat (this.linenum, 

this . type == ' + ' 
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? this . el .value + this . e2 . value 
: this . el .value - this . e2 . value ) ; 



break ; 



case JSC$JS_STRING: 

if (this . type == ' + ' ) 

/* Only the addition is available for the strings. */ 
return new JSC$expr_string (this. linenum, 

this .el .value + this . e2 .value) ; 

break; 

default : 

/* FALLTHROUGH */ 
break; 

} 

} 

return this; 

} 

/* Shift expr. */ 

function JSC$expr_shif t (In, type, el, e2) 
{ 

r j s_debug ( " JSC$expr_shif t : " ) ; 

this.etype = JSC$EXPR_SHIFT ; 
this. linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 

} 

/* Relational expr. */ 

function JSC$expr_relat ional (In, type, el, e2) 

{ 

rj s_debug ( "JSC$expr_relat ional : " ) ; 

this.etype = JS C $ EX PR_RELAT IONAL ; 
this . lang_type = JSC$ JS_BOOLEAN; 
this. linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 

} 

/* Equality expr. */ 

function JSC$expr_equality (In, type, el, e2) 
{ 

rjs_debug("JSC$expr_equality : ") ; 

this.etype = JSC $ EX PR_E QUALITY; 
this . lang_type = JSC$ JS_BOOLEAN; 
this. linenum = In; 
this. type = type; 
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this. el = el; 
this,e2 = e2; 

} 

/* Bitwise and expr. */ 

function JSC$expr_bitwise_and (In, el, e2) 

{ 

r j s_debug ( " JSC$expr_bitwise_and : " ) ; 

this.etype = JSC$EXPR_BITWISE; 
this . linenum = In; 
this. el = el; 
this.e2 = e2; 

} 

/* Bitwise or expr. */ 

function JSC$expr_bitwise_or (In, el, e2) 

{ 

r j s_debug ( " JSC$expr_bitwise_or : " ) ; 

this.etype = JSC$EXPR_BITWISE ; 
this. linenum = In; 
this. el = el; 
this.e2 = e2; 

} 

/* Bitwise xor expr. */ 

function JSC$expr_bitwise_xor (In, el, e2) 

{ 

r j s_debug ( " JSC$expr_bitwise_xor : " ) ; 

this.etype = JSC$EXPR_BITWISE ; 
this . linenum = In; 
this. el = el; 
this.e2 = e2; 

} 

/* Logical and expr. */ 

function JSC$expr_logical_and (In, el, e2) 
{ 

r j s_debug ( " JSC$expr_logical_and : " ) ; 

this.etype = JSC$EXPR__LOGICAL ; 

if (el . lang_type && e2.1ang_type 

&& el.lang_type == JSC$ JS_BOOLEAN && e2 . lang_type == JSC$ JS_BOOLEAN) 
this . lang_type = JSC$ JS_BOOLEAN; 

this. linenum = In; 
this. el = el; 
this.e2 = e2 ; 

} 
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/* Logical or expr . */ 

function JSC$expr_logical_or (In, el, e2) 

{ 

r j s_debug ( " JSC$expr_logical_or : 11 ) ; 

this.etype = JSC$EXPR_LOGICAL; 

if (el . lang_type && e2 . lang_type 

&& el.lang_type == JSC$ JS_BOOLEAN && e2 . lang_type == JSC$ JS_B0OLEAN) 
this . lang_type = JSC$ JS_BOOLEAN ; 

this . linenum = In; 
this. el = el; 
this.e2 = e2 ; 

} 

/* New expr. */ 

function JSC$expr_new (In, expr, args) 

{ 

r j s_debug ( " JSC$expr_new : " ) ; 

this.etype = JSC$EXPR_NEW; 
t his . linenum = In; 
this. expr = expr; 
this. args = args; 

} 

/* Object property expr. */ 

function JSC$expr_obj ectjjroperty (In, expr, id) 

{ 

r j s_debug ( " JSC$expr_obj ect_property : " + id) ; 

this.etype = JSC$EXPR_OB JECT_PROPERTY ; 
this. linenum = In; 
this. expr = expr; 
this. id = id; 

} 

/* Object array expr. */ 

function JSC$expr_obj ect_array (In, exprl, expr2) 

{ 

rjs_debug("JSC$expr_object_array: ) ; 

this.etype = JSC$EXPR_OBJECT_ARRAY ; 
this. linenum = In; 
this . exprl = exprl ; 
this.expr2 = expr2 ; 

} 

/* Call. */ 

function JSC$expr_call (In, expr, args) 

{ 
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r j s_debug ( 11 JSC$expr_call : " ) ; 

this.etype = JSC$EXPR_CALL ; 
this . linenum = In; 
this. expr = expr ; 
this.args = args ; 

} 

/* Assignment . */ 

function JSC$expr_assignment (In, type, exprl, expr2) 

{ 

r j s_debug ( " JSC$expr_assignment : " ) ; 

this.etype = JSC$EXPR_ASSIGNMENT; 
this. linenum = In; 
this. type = type; 
this. exprl = exprl; 
this . expr2 = expr2 ; 

} 

/* Quest colon. */ 

function JSC$expr_quest_colon (In, el, e2 , e3) 

{ 

r j s_debug ( "JSC$expr_quest_colon : " ) ; 

this.etype = JSC$EXPR_QUEST_COLON; 
this . linenum = In; 
this. el = el; 
this.e2 = e2 
this . e3 = e3 

} 

/* Unary. */ 

function JSC$expr_unary (In, type, expr) 

{ 

r j s_debug ( "JSC$expr_unary : " ) ; 

this.etype = JSC$EXPR_UNARY; 
this. linenum = In; 
this. type = type ; 
this. expr = expr; 

} 

/* Postfix. */ 

function JSC$expr_postf ix (In, type, expr) 

{ 

r j s_debug ( 11 JSC$expr_postf ix : " ) ; 

this.etype ^ JSC$EXPR_POSTFIX; 
this. linenum = In; 
this. type = type; 
this. expr = expr; 

} 
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/* Postfix. */ 

function JSC$expr_comma (In, exprl, expr2 ) 

{ 

r j s_debug ( " JSC$expr__comma : " ) ; 

this.etype = JSC$EXPR_COMMA; 
this . linenum = In; 
this. exprl = exprl; 
this.expr2 = expr2 ; 

} 
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/* 

Local variables 

mode : c 

End: 

*/ 
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/* 

* Input stream definitions. 

* Copyright (c) 1998 New Generation Software (NGS) Oy 
* 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 
* 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the GNU 

* Library General Public License for more details. 
* 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www. gnu . org/copylef t/gpl . html . 
*/ 

★ 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to 
★ 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

*********************************************** 



/* 

* $Source: /usr/local/cvsroot/ngs/ j s/ j sc/streams . j s , v $ 

* $Id: streams. js,v 1.2 1998/10/26 15:25:21 mtr Exp $ 
*/ 

/* 

* File stream. 
*/ 

function JSC$StreamFile (name) 
{ 

this. name = name; 

this. stream = new File (name); 

this. error = " " ; 

this. open = JSC$StreamFile__open; 
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this . close 
this . rewind 
this . readByte 
this . ungetByte 
this . readln 

} 



= JSC$StreamFile_close ; 
= JSC$StreamFile_rewind; 
= JSC$StreamFile_read_byte 
= JSC$StreamFile_unget_byt 
= JSC$StreamFile_readln; 



function JSC$StreamFile_open 0 

{ 

if (! this . stream. open ("r")) 

{ 

this. error = System . strerror (System . errno) ; 
return false; 

} 

return true; 

} 



function JSC$StreamFile_close () 

{ 

return this . stream . close (); 

} 



function JSC$StreamFile_rewind () 

{ 

return this . stream . setPosit ion (0) ; 

} 



function JSC$StreamFile_read_byte () 

{ 

return this . stream . readByte (); 

} 



//@@ function JSC$StreamFile_unget_byte (byte) 
function JSC$StreamFile_unget_byte (_byte) 

{ 

this . stream. ungetByte (_byte) ; 

} 



function JSC$StreamFile_readln () 

{ 

return this . stream . readln (); 

} 



/* 

* String stream. 
*/ 

function JSC$StreamString (str) 
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this. name = " StringStream" ; 
this -string = str; 
this.pos = 0; 
this .unget_byte = -1; 
this -error = " " ; 

this . open 
this - close 
this . rewind 
this . readByte 
this . ungetByte 
this . readln 

} 



function JSC$ Streams tring_open () 

{ 

return true ; 

} 



function JSC$StreamString_close () 

{ 

return true; 

} 



function JSC$StreamString_rewind () 

{ 

this.pos = 0; 
this . unget_byte = -1; 
this. error = " " ; 
return true; 

} 



function JSC$StreamString_read__byte () 

{ 

var ch; 

if (this .unget_byte != //@@ if ( this . unget_byte >= 0) 

{ 

ch = this . unget_byte ; 

this . unget_byte = //@@ this . unget_byte = -1; 

return ch; 

} 

if (this.pos >= this . string . length) 
return -1; 

//@@ return this . string . charCodeAt ( this . pos++) ; 
return this . string . charAt ( this . pos++) ; 

} 



//@@ function JSC$ Streams tring__unget_byte (byte) 
function JSC$StreamString_unget_byte (_byte) 



JSC$StreamString_open; 
JSC$StreamString_close ; 
JSC$StreamString_rewind; 
JSC$ St reams tring_read_byte ; 
JSC$ St reams tring_unget_byte ; 
JSC$StreamString readln; 
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{ 

this . unget_byte = _byte; 

} 



//@@ NOT used 

function JSC$StreamString_readln () 

{ 

var line = new String (""); 
var ch; 

while ((ch = this . readByte 0) != -1 && ch != '\n') 
line. append (String . pack ("C", ch) ) ; 



return line; 

} 



/* 

Local variables ; 

mode : c 

End: 

*/ 



in 
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/* 

* Internal definitions. 

* Copyright (c) 1998 New Generation Software (NGS) Oy 
★ 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 
* 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 

* Library General Public License for more details. 
* 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www. gnu . org/ copylef t/gpl . html . 
*/ 

/*********************** 
* 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to: 
* 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

********************************* 



/* 

* $Source: /usr/ local/cvsroot/ngs/ j s/ j sc/compiler . j s , v $ 

* $Id: compiler . js,v 1.42 1999/01/11 09:01:33 mtr Exp $ 
*/ 

/* 

* Constants. 
*/ 

/* Tokens. */ 

JSC$tE0F = 128; 

JSC$t INTEGER 
JSC$tFL0AT = 13 0; 
JSC$tSTRING = 131; 
JSC$t IDENTIFIER 



= 12 9; 
= 132; 



84 



JSC$ tBREAK 


133 ; 




JSC$t CONTINUE 




= 134; 


JSC$tDELETE 




= 13 5; 


JSC$tELSE 


136; 




JSC$tFOR = 


137; 




JSC $t FUNCTION 




= 138; 


JSC$tIF 


13 9; 




JSC$tIN - 


14 0; 




JSC$tNEW 


141; 




JSC$ tRETURN 




= 142; 


JSC$tTHIS 


14 3 ; 




JSC$tTYPEOF 




= 144; 


JSC$ tVAR = 


14 5 ; 




JSC$tVOID = 


146 ; 




JSC$tWHILE 


14 7 ; 




JSC$tWITH 


14 8 ; 




JSC$tCASE 


14 9 ; 




JSC$tCATCH 


15 0 ; 




JSC$tCLASS = 


151 ; 




JSC$tCONST 


152 ; 




JSC$tDEBUGGER 




= 15 3; 


JSC $t DEFAULT 




= 154; 


JSC$tDO 




= 155; 


JSC$ tENUM = 


15 6 ; 




JSC$tEXPORT = 


157 ; 




JSC$tEXTENDS 




= 15 8; 


JSC$t FINALLY 




= 159; 


JSC$tIMPORT = 


160; 




JSC$tSUPER = 


161; 




JSC$tSWITCH = 


162 ; 




JSC $t THROW 


163; 




JSC$tTRY 


164 ; 




JSC$tNULL 


165; 




JSC$tTRUE 


166; 




JSC$tFALSE = 


167 ; 




JSC $t EQUAL = 


168; 


JSC$tNEQUAL 




= 16 9; 


JSC$tLE 


170, 




JSC$tGE 


171; 


JSC$tAND 


172; 


JSC$tOR 


173 ; 


JSC$tPLUSPLUS 




= 174; 


JSC$tMINUSMINUS 


= 175; 


JSC$tMULA 


176, 




JSC$tDIVA 


177, 




JSC$tMODA 


178 




JSC $t ADDA 


179, 




JSC$tSUBA 


180 




JSC$tANDA 


181 




JSC$tXORA 


182 




JSC$tORA 


183 




JSC$tLSIA 


184 




JSC$tLSHIFT = 


185 






JSC$tRSHIFT = 186; 
JSC$tRRSHIFT = 187; 

JSC$tRSIA = 188; 
JSC$tRRSA = 189; 
JSC$tSEQUAL = 190; 
JSC$tSNEQUAL = 191; 

/* Expressions. */ 

JSC$EXPR_COMMA = 0; 

JSC$EXPR_ASSIGNMENT = 1; 

JSC$EXPR_QUEST_COLON = 2; 

JSC$EXPR_LOGICAL = 3; 

JSC$EXPR_BITWISE = 4; 

JSC$EXPR_EQUALITY = 5; 

JSC$EXPR_RELATIONAL = 6; 

JSC$EXPR_SHIFT = 7; 

JSC$EXPR_MULTIPLICATIVE = 8; 

JSC$EXPR_ADDITIVE = 9; 

JSC$EXPR_THIS = 10 

JSC$EXPR_NULL = 11 

JSC$EXPR_TRUE = 12 

JSC$EXPR_FALSE = 13 

JSC$EXPR_IDENTIFIER = 14 

JSC$EXPR_FLOAT = 15 

JSC$EXPR_INTEGER = 16; 

JSC$EXPR_STRING = 17 

JSC$EXPR_CALL = 18 

JSC$EXPR_OBJECT_PROPERTY = 19 

JSC$EXPR_OBJECT_ARRAY =20 

JSC$EXPR_NEW =21 

JSC$EXPR_DELETE =22 

JSC$EXPR_VOID =23 

JSC$EXPR_TYPEOF =24 

JSC$EXPR_PREFIX =25 

JSC$EXPR_POSTFIX = 26; 

JSC$EXPR_UNARY =27 

JSC$EXPR_REGEXP =28 
JSC$EXPR_ARRAY_INITIALIZER =29 
JSC$EXPR_OBJECT_INITIALIZER =30 

/* Statements */ 

JSC$STMT_BLOCK = 0; 
JSC$STMT_FUNCTION_DECLARATION = 1; 

JSC$STMT_VARIABLE = 2; 

JSC$STMT_EMPTY = 3; 

JSC$STMT_EXPR = 4; 

JSC$STMT_IF = 5; 

JSC$STMT_WHILE = 6; 

JSC$STMT__FOR = 7; 

JSC$STMT_FOR__IN = 8; 

JSC$STMT_CONTINUE = 9; 

JSC$STMT_BREAK = 10 

JSC $STMT_RE TURN = 11 

JSC$STMT_WITH = 12 



JSC$STMT_TRY 
JSC$STMT_THROW 
JS C $ S TMT_D0_WH I L E 
JSC$STMT_SWITCH 
JSC$STMT LABELED_STMT 



= 15, 



= 13; 
= 14; 

= 16; 
= 17; 



/* JavaScript types, 



JSC$JS_ 
JSC$JS~ 
JSC$JS~ 
JSC$JS~ 
JSC$JS~ 
JSC$JS_ 
JSC$JS~ 
JSC$JS~ 
JSC$JS 



undefined 
"null 

BOOLEAN 
^INTEGER 
STRING 
FLOAT 

"array 

OBJECT 
BUILT IN 



0; 
1; 



2 j 

3 j 

4 j 
5; 
6 j 
7; 
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* @@ Token to string 
function r j s_t2s (token) 



{ 



if (token 



JSC$tMULA ) return 



else 


if 


(token 




JSC$tDIVA ) return " 


/ = "; 


else 


if 


(token 




JSC$tM0DA ) return " 


%=" ; 


else 


if 


(token 




JSC$ tADDA ) return " 


+ =" ; 


else 


if 


(token 




JSC$tSUBA ) return " 


_ _ ii . 


else 


if 


(token 




JSC$tLSIA ) return " 


<<=" ; 


else 


if 


(token 




JSC$tRSIA ) return » 


>>=" ; 


else 


if 


(token 




JSC$tRRSA ) return " 


>>>=" ; 


else 


if 


(token 




JSC $ t AND A ) return " 


&="; 


else 


if 


(token 




JSC$tX0RA ) return " 


^_ it . 


else 


if 


(token 




JSC$tORA ) return " | 


_ it . 


else 


if 


(token 




JSC$tEQUAL) return " 


_ _ ii . 


else 


if 


(token 




JSC$ tNEQUAL) return 


ii i _ it . 


else 


if 


(token 




JSC$tSEQUAL) return 


ii _ _ _ n . 


else 


if 


(token 




JSC$tSNEQUAL) return 


M i ii . 

■ i 


else 


if 


(token 




JSC$tOR) return " | | " 




else 


if 


(token 




JSC$tAND) return "&& 


/ 


else 


if 


(token 




JSC$tLE) return "<=" 


/ 


else 


if 


(token 




JSC$tGE) return ">=" 




else 


if 


(token 




JSC$tLSHIFT) return 


" < < " ; 


else 


if 


(token 




JSC$tRSHIFT) return 


" > > " ; 


else 


if 


(token 




JSC$tRRSHIFT) return 


" >>>" ; 


else 


if 


(token 




JSC$tDELETE) return 


"delete 


else 


if 


(token 




JSC$tV0ID) return "void 


else 


if 


(token 




JSC$tTYPE0F) return 


" typeof 


else 


if 


(token 




JSC$tPLUSPLUS) return "++"; 


else 


if 


( token 




JSC$tMINUSMINUS) return "-- 


else 


return " " 


+ 


token; 
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